fork download
  1. (def temp-list '(11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 12 12 12 12 12 12 12 12 12 12 12 13 13 13 13 13 13 13 13 13 13 13 13 13 14 14 14 14 14 15 15 15 15 15 15 15 15 15 15 15 15 15 15 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 16 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 17 18 18 18 18 18 18 18 18 18 18 18 18 18 18 18 18 18 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 19 20 20 20 20 20 20 20 20 20 20 20 21))
  2.  
  3. (def x (let [m (atom {})] (doseq [n temp-list] (swap! m assoc n (+ (if-let [m (get @m n)] m 0) 1))) @m))
  4.  
  5. (println x)
  6.  
  7. ; expected
  8. ; {11 18, 12 11, 13 13, 14 5, 15 14, 16 29, 17 26, 18 17, 19 20, 20 11, 21 1}
Success #stdin #stdout 1.4s 389120KB
stdin
Standard input is empty
stdout
{11 18, 12 11, 13 13, 14 5, 15 14, 16 29, 17 26, 18 17, 19 20, 20 11, 21 1}