Counting words for quotes in parallel

quote-word-counts.clj

(ns clojure-noob.meta-exercises
(:gen-class))

(def word-count (atom {}))

(defn set-words [m words]
  (reduce (fn [m word]
            (if (contains? m word)
              (update-in m [word] inc)
              (assoc m word 1)))
          m
          words))

(defn split-words
  [s]
  (->> s
      (#(clojure.string/split % #" "))
      (map clojure.string/trim)
      (map clojure.string/trim-newline)))

(defn get-quote
  []
  (println "Getting quote...")
  (future (let [quote (slurp "https://www.braveclojure.com/random-quote")]
            (let [words (split-words quote)]
              (swap! word-count set-words words)))))

(defn quote-word-count
  [cnt]
  (let [calls (repeatedly cnt get-quote)]
    (doseq [call calls]
      (deref call 1000 :timeout)))
  @word-count)