aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

update

Browse source
This commit is contained in:
Ingy döt Net 2013-06-05 21:47:54 +00:00
parent 1f1ad49427
commit 6f050a029e
2496 changed files with 37609 additions and 3031 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Anagrams/Clojure/anagrams.clj
View file

@ -2,9 +2,9 @@
(def groups
(with-open [r (io/reader wordfile)]
(group-by sort (line-seq r)))
(group-by sort (line-seq r))))
(let [wordlists (sort-by (comp - count) (vals groups)
(let [wordlists (sort-by (comp - count) (vals groups))
maxlength (count (first wordlists))]
(doseq [wordlist (take-while #(= (count %) maxlength) wordlists)]
(println wordlist))