Clojure exercise: Sentiment Scoring for Words

gistfile1.txt

(defn sentiment-scorer [& maps]
  (letfn [(sentiment-scorer-intermediate [m]
            (let [words (-> (:c m)
                            (clojure.string/lower-case)
                            (clojure.string/replace #"[\.\!\@]" "")
                            (clojure.string/split #"\s+"))
                  rs (repeat (count words) [(:r m)])]
              (apply hash-map (interleave words rs))))]
  (let [intermediate-map (->> (apply map sentiment-scorer-intermediate maps)
                              (apply merge-with concat))]
    (zipmap (keys intermediate-map)
            (map #(/ (apply + %) (count %)) (vals intermediate-map))))))

(sentiment-scorer [{:r 5 :c "This is awesome!"}
                   {:r 1 :c "This sucks...."}])