You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
16 lines
471 B
Clojure
16 lines
471 B
Clojure
3 years ago
|
; 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.
|
||
|
|
;
|
||
|
|
|
||
|
3 years ago
|
(let [input (->> (slurp "./in")
|
||
|
|
clojure.string/split-lines
|
||
|
|
(mapv read-string))]
|
||
|
|
(println
|
||
|
|
(count
|
||
|
|
(filter #(< (get input %) (get input (+ % 3)))
|
||
|
|
(range 0 (- (count input) 3))))))
|
||
|
3 years ago
|
|