16 lines
395 B
Clojure
16 lines
395 B
Clojure
|
(defn is-sorted? [coll]
|
||
|
|
(not-any? pos? (map compare coll (next coll))))
|
||
|
|
|
||
|
|
(defn take-while-eqcount [coll]
|
||
|
|
(let [n (count (first coll))]
|
||
|
|
(take-while #(== n (count %)) coll)))
|
||
|
|
|
||
|
|
(with-open [rdr (clojure.java.io/reader "unixdict.txt")]
|
||
|
|
(->> rdr
|
||
|
|
line-seq
|
||
|
|
(filter is-sorted?)
|
||
|
|
(sort-by count >)
|
||
|
|
take-while-eqcount
|
||
|
|
(clojure.string/join ", ")
|
||
|
|
println))
|