From 8d43e37df99f280377bed90284d6ac2428334804 Mon Sep 17 00:00:00 2001 From: Clyne Sullivan Date: Wed, 30 Nov 2022 19:55:31 -0500 Subject: move 2021 days to folder; update README --- day1/part1.clj | 15 --------------- 1 file changed, 15 deletions(-) delete mode 100644 day1/part1.clj (limited to 'day1/part1.clj') 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 $))) - -- cgit v1.2.3