keithharper/harder-anagrams.org

Last active July 1, 2019 10:43

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/keithharper/74cb6cb0fa60d0ebe31949e67a0d9751.js"></script>
Save keithharper/74cb6cb0fa60d0ebe31949e67a0d9751 to your computer and use it in GitHub Desktop.

Harder Anagrams

Raw

(defn anagrams? [words1 words2]
  (let [xf (comp sort
                 (partial re-seq #"[^\s]")
                 clojure.string/lower-case
                 str)]
    (= (xf words1)
       (xf words2))))

Examples:

(filter (partial anagrams? "real fun") 
        dictionary)
=> ("funeral")

(filter (partial anagrams? "stand under")
        dictionary)
=> ("understand")