day1/part1.clj


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

; Day 1, part 1
; Read a list of numbers from stdin, separated by newlines.
; Count occurances of the current number being greater than
; the previous.
;

(->> (slurp "./in")
     (clojure.string/split-lines)
     (map read-string)
     (reduce
       #(update [%2 (second %1)] 1 (partial + (if (> %2 (first %1)) 1 0)))
       [999999 0]
       )
     (second)
     (println)
     )