September 2017 Update

Task/Anagrams/Clojure/anagrams-2.clj

@@ -0,0 +1,15 @@
+(->> (slurp "http://www.puzzlers.org/pub/wordlists/unixdict.txt")
+     (apply str)
+     clojure.string/split-lines
+     (group-by sort)
+     vals
+     (sort-by count #(compare %2 %1))  ;; 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"])