anagrams.clj

; Write a function to determine if two words are anagrams.
(defn is-anagram [target src]
  (if (string? target)
    (if (= target src)
      false
      (is-anagram (frequencies target) src))
    (= target (frequencies src))))

; Given a dictionary of words (such as this one), find all of the anagrams for a target word.
; Assumption: dictionary of words is a collection
(defn find-anagrams [target coll]
  (let [target-freqs (frequencies target)]
    (filter #(and (not= target %)(is-anagram target-freqs %)) coll)))