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
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)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
)
|
||
|
|
|