name-score-problem

name-score.clj

(defn accum1
  [h pair-arry]
  (if (contains? h (get pair-arry 1))
    (merge-with conj h (hash-map (get pair-arry 1) (get pair-arry 0)))
    (merge-with conj h (hash-map (get pair-arry 1) [(get pair-arry 0)]))))

;; short version of accum
(defn accum2
  [h pair-arry]
  (merge-with conj h (hash-map (keyword (get pair-arry 1)) (if (contains? h (keyword (get pair-arry 1))) (get pair-arry 0) [(get pair-arry 0)]))))

(defn name-score [str-arry]
  (reduce accum2 {} (map #(clojure.string/split % #":") str-arry)))

(name-score (clojure.string/split "john:1,jane:1,joy:2" #",")) ;;{:1 ["john" "jane"], :2 ["joy"]}