First commit of partial RosettaCode contents.
Pushing this for testing purposes. Lots of work still needed.
This commit is contained in:
commit
1e05ecd7ee
781 changed files with 9080 additions and 0 deletions
10
Task/Anagrams/Clojure/anagrams.clj
Normal file
10
Task/Anagrams/Clojure/anagrams.clj
Normal file
|
|
@ -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))
|
||||
Loading…
Add table
Add a link
Reference in a new issue