n-most-frequent-words.clj

; Challenge from a friend:
;
; - Read a file of text
; - determine the n most frequently used words
; - print out a sorted list of those words along with their frequencies)

(-> filename 
    (slurp) 
    (lower-case)
    (clojure.string/replace #"\d" "")
    (clojure.string/split #" ")
    (frequencies) 
    (#(sort-by second > %)))