This commit is contained in:
2024-12-06 09:38:07 -05:00
parent bc60e6246b
commit 6767b9456b
+1 -3
View File
@@ -41,9 +41,7 @@
:else (let [pos' (move dir pos)]
(if (= (get-char pos') \#)
(recur pos (turn-right dir) (conj path [dir pos]))
(recur pos'
dir
(conj path [dir pos])))))))
(recur pos' dir (conj path [dir pos])))))))
(defn add-obstacle [[row col]]
(update input row assoc col \#))