8 lines
150 B
Clojure
8 lines
150 B
Clojure
(defn count-words [file n]
|
|
(->> file
|
|
slurp
|
|
clojure.string/lower-case
|
|
(re-seq #"\w+")
|
|
frequencies
|
|
(sort-by val >)
|
|
(take n)))
|