ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 05:23:17 -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

25
2024/src/day06.clj
View File

@ -35,16 +35,15 @@
(loop [pos start
dir :up
path #{}]
(if (not (in-bounds? pos))
path
(if (path [dir pos])
:cycle
(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]))))))))
(cond
(not (in-bounds? pos)) path
(path [dir pos]) :cycle
: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])))))))
(defn add-obstacle [[row col]]
(update input row assoc col \#))
@ -57,9 +56,9 @@
;; part 2
(->> (for [pos (->> (get-path)
(map second)
distinct
(filter #(not= % start)))]
(map second)
distinct
(filter #(not= % start)))]
(with-redefs [input (add-obstacle pos)] (get-path)))
(filter #(= % :cycle))
count)