This commit is contained in:
Adam Jeniski 2024-12-06 09:38:07 -05:00
parent bc60e6246b
commit 6767b9456b

View File

@ -41,9 +41,7 @@
:else (let [pos' (move dir pos)] :else (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 (conj path [dir pos])))))))
dir
(conj path [dir pos])))))))
(defn add-obstacle [[row col]] (defn add-obstacle [[row col]]
(update input row assoc col \#)) (update input row assoc col \#))