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.

23 lines
480 B
Clojure

3 years ago
; 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.
;
(loop [inc-count 0
prev (Integer/parseInt (read-line))
]
(let [input (read-line)]
(if (not (empty? input))
(let [depth (Integer/parseInt input)]
(recur
(if (> depth prev) (inc inc-count) inc-count)
depth
)
)
(println inc-count)
)
)
)