diff options
Diffstat (limited to 'day2/part1.clj')
-rw-r--r-- | day2/part1.clj | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/day2/part1.clj b/day2/part1.clj deleted file mode 100644 index e4e9d49..0000000 --- a/day2/part1.clj +++ /dev/null @@ -1,26 +0,0 @@ -; Day 2, part 1 -; Read a list of instructions from stdin: -; "down X" increases depth number by X, -; "up X" decreases depth by X, -; "forward X" increases xpos by X. -; Print (xpos * depth) after end of data. -; - -(require '[clojure.string :as str]) - -(println - (reduce * - (vals - (reduce - #(case (first %2) - "forward" (update %1 :xpos + (second %2)) - "up" (update %1 :depth - (second %2)) - "down" (update %1 :depth + (second %2)) - ) - {:xpos 0 :depth 0} - (->> (slurp "./in") - str/split-lines - (map #(str/split % #" ")) - (map #(update % 1 read-string)) - ))))) - |