Anagrams: Difference between revisions
Content added Content deleted
(added Clojure version) |
(minor correction to Clojure version) |
||
Line 323:
(let [f (fn [tbl word] (update-in tbl [(sort word)] conj word))]
(def groups (reduce f {} words)))
(let [wordlists (vals groups)
| |||