Hacked together word frequency counter

word_freq.clj

(ns coyotesqrl.word-freq
  (:require [clojure.java.io :as io]
            [clojure.string :as str]))

(defn line-freq [l]
  (->> (str/split l #"\W+")
       (map str/lower-case)
       (frequencies)))

(defn word-freqs [f]
  (sort-by val >
           (with-open [rdr (io/reader f)]
             (reduce (fn [a v]
                       (merge-with + a (line-freq v)))
                     {}
                     (line-seq rdr)))))

(comment
  (let [result (word-freqs "kjvbible.txt")]
    {"Distinct words" (count result)
     "Most frequent word" (first result)}))