gistfile1.clj

(use '[clojure.string :only (split-lines split)])

(defn read-lines [args]
  { :lines (split-lines (slurp (:filename args))) })

(defn lines-to-words [args]
  { :words (map #(split % #"\s") (:lines args)) })

(defn words-to-freqs [args]
  { :word-freqs (map #(frequencies %) (:words args)) })

(defn merge-freqs [args]
  { :freqs (apply merge-with + (:word-freqs args)) })

(merge-freqs
  (words-to-freqs
   (lines-to-words
    (read-lines { :filename "data.txt" }))))