Data commit

Task/Anagrams/Clojure/anagrams-1.clj

@@ -0,0 +1,10 @@
+(require '[clojure.java.io :as io])
+
+(def groups
+  (with-open [r (io/reader wordfile)]
+    (group-by sort (line-seq r))))
+
+(let [wordlists (sort-by (comp - count) (vals groups))
+      maxlength (count (first wordlists))]
+  (doseq [wordlist (take-while #(= (count %) maxlength) wordlists)]
+    (println wordlist))

Task/Anagrams/Clojure/anagrams-2.clj

@@ -0,0 +1,14 @@
+(->> (slurp "http://wiki.puzzlers.org/pub/wordlists/unixdict.txt")
+     clojure.string/split-lines
+     (group-by sort)
+     vals
+     (sort-by count >)  ;; sort in reverse
+     (partition-by count)
+     first)
+
+;; (["caret" "carte" "cater" "crate" "trace"]
+;;  ["angel" "angle" "galen" "glean" "lange"]
+;;  ["elan" "lane" "lean" "lena" "neal"]
+;;  ["alger" "glare" "lager" "large" "regal"]
+;;  ["evil" "levi" "live" "veil" "vile"]
+;;  ["abel" "able" "bale" "bela" "elba"])