random_quote_counter.clj

(defn update-count
  [word counter-atom]
  (swap! counter-atom update word #(if %1 (inc %1) 1)))

(defn process-quote
  [q counter-atom]
  (let [quote-words (clojure.string/split q #"\W+")
        lowercased-words (map clojure.string/lower-case quote-words)]
    (doseq [word lowercased-words]
      (update-count word counter-atom))))

(defn quote-word-count
  [n-quotes]
  (let [word-counter-atom (atom {})]
    (->> (map
           (fn [_]
             (future
               (process-quote
                 (slurp "https://www.braveclojure.com/random-quote")
                 word-counter-atom)))
           (range n-quotes))
         doall
         (map deref)
         doall)
    @word-counter-atom))