day6: learned read-string

3 years ago · 0e3b0f4732
parent 4db3315d89
commit 0e3b0f4732
1 changed files with 1 additions and 1 deletions
--- a/day6/part2.clj
+++ b/day6/part2.clj
@ -2,7 +2,7 @@

 (->> (read-line)
     (#(str/split % #","))
-     (map #(Integer/parseInt %))
+     (map read-string)
     (reduce #(update %1 %2 inc) (vec (repeat 9 0)))
     (iterate
       #(let [nf (conj (vec (rest %)) (first %))]