ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 13:03:19 -09:00
Code Issues Packages Projects Releases Wiki Activity

use cond over nested else if

Browse Source
This commit is contained in:
Adam Jeniski 2024-12-06 09:36:24 -05:00
parent d40e6cfcd8
commit bc60e6246b
1 changed files with 12 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
2024/src/day06.clj
View File

@ -35,16 +35,15 @@
(loop [pos start (loop [pos start
dir :up dir :up
path #{}] path #{}]
(if (not (in-bounds? pos)) (cond
path (not (in-bounds? pos)) path
(if (path [dir pos]) (path [dir pos]) :cycle
:cycle :else (let [pos' (move dir pos)]
(let [pos' (move dir pos)]
(if (= (get-char pos') \#) (if (= (get-char pos') \#)
(recur pos (turn-right dir) (conj path [dir pos])) (recur pos (turn-right dir) (conj path [dir pos]))
(recur pos' (recur pos'
dir dir
(conj path [dir pos])))))))) (conj path [dir pos])))))))
(defn add-obstacle [[row col]] (defn add-obstacle [[row col]]
(update input row assoc col \#)) (update input row assoc col \#))