blob: b972e1138fcf097d31789a4b08fd12fa13f3542f (
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
26
27
28
29
|
; Day 1, part 2
; Read a list of numbers from stdin, separated by newlines.
; Count occurances of the current sum being greater than
; the previous, where a sum is that of the current number,
; the previous number, and the next number.
;
(loop [inc-count 0
buff (repeat 4 (Integer/parseInt (read-line)))
]
(let [next (read-line)
new-count (if (> (last buff) (first buff))
(inc inc-count)
inc-count
)
]
(if (empty? next)
(println new-count)
(recur
new-count
(concat
(rest buff)
[(Integer/parseInt next)]
)
)
)
)
)
|
