blob: ad6fe91d7498e6f78849742e954bce00f4d8421b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(require '[clojure.string :as str])
(->> (read-line)
(#(str/split % #","))
(map read-string)
(reduce #(update %1 %2 inc) (vec (repeat 9 0)))
(iterate
#(let [nf (conj (vec (rest %)) (first %))]
(update nf 6 (partial + (get nf 8)))
)
)
(#(nth % 256))
(apply +)
(println)
)
; ->> read input from stdin
; split input string by commas
; convert string array into number array
; reduce to frequency counts
; create iterator that returns next day's counts
; get 256th iteration
; sum all frequency counts
; print results
|
