diff options
Diffstat (limited to 'day1')
| -rw-r--r-- | day1/part1.clj | 15 | ||||
| -rw-r--r-- | day1/part2.clj | 15 |
2 files changed, 0 insertions, 30 deletions
diff --git a/day1/part1.clj b/day1/part1.clj deleted file mode 100644 index 1c2c756..0000000 --- a/day1/part1.clj +++ /dev/null @@ -1,15 +0,0 @@ -; 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. -; - -(as-> (slurp "./in") $ - (clojure.string/split-lines $) - (map read-string $) - (reduce - #(cond-> (assoc %1 0 %2) (> %2 (first %1)) (update 1 inc)) - [(first $) 0] - (rest $)) - (println (second $))) - diff --git a/day1/part2.clj b/day1/part2.clj deleted file mode 100644 index e496c7d..0000000 --- a/day1/part2.clj +++ /dev/null @@ -1,15 +0,0 @@ -; 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)))))) - |