2020-02-17 23:21:07 -08:00
|
|
|
(->> (slurp "http://wiki.puzzlers.org/pub/wordlists/unixdict.txt")
|
2017-09-23 10:01:46 +02:00
|
|
|
clojure.string/split-lines
|
|
|
|
|
(group-by sort)
|
|
|
|
|
vals
|
2018-06-22 20:57:24 +00:00
|
|
|
(sort-by count >) ;; sort in reverse
|
2017-09-23 10:01:46 +02:00
|
|
|
(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"])
|
