blob: e496c7d332694e568c7e2db6635e44cec68c6b87 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
; 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.
;
(let [input (->> (slurp "./in")
clojure.string/split-lines
(mapv read-string))]
(println
(count
(filter #(< (get input %) (get input (+ % 3)))
(range 0 (- (count input) 3))))))
|
