15 lines
474 B
Clojure
15 lines
474 B
Clojure
(->> (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"])
|