diff options
| -rw-r--r-- | day2/part1.clj | 33 | ||||
| -rw-r--r-- | day2/part2.clj | 36 |
2 files changed, 69 insertions, 0 deletions
diff --git a/day2/part1.clj b/day2/part1.clj new file mode 100644 index 0000000..1a4df6b --- /dev/null +++ b/day2/part1.clj @@ -0,0 +1,33 @@ +; Day 2, part 2 +; 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]) + +(loop [xpos 0 depth 0] + (let [input (read-line)] + (if (empty? input) + (println (* xpos depth)) + (let [ins (str/split input #" ") + n (Integer/parseInt (second ins)) + ] + (recur + (if (= (first ins) "forward") + (+ xpos n) + xpos + ) + (case (first ins) + "up" (- depth n) + "down" (+ depth n) + depth + ) + ) + ) + ) + ) + ) + diff --git a/day2/part2.clj b/day2/part2.clj new file mode 100644 index 0000000..35fe3fb --- /dev/null +++ b/day2/part2.clj @@ -0,0 +1,36 @@ +; Day 2, part 2 +; Read a list of instructions from stdin: +; "down X" increases aim number by X, +; "up X" decreases aim by X, +; "forward X" increases xpos by X and depth by (aim * X). +; Print (xpos * depth) after end of data. +; + +(require '[clojure.string :as str]) + +(loop [xpos 0 depth 0 aim 0] + (let [input (read-line)] + (if (empty? input) + (println (* xpos depth)) + (let [ins (str/split input #" ") + n (Integer/parseInt (second ins)) + ] + (recur + (if (= (first ins) "forward") + (+ xpos n) + xpos + ) + (if (= (first ins) "forward") + (+ depth (* aim n)) + depth + ) + (case (first ins) + "down" (+ aim n) + "up" (- aim n) + aim) + ) + ) + ) + ) + ) + |