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

add comments

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-09 08:51:06 -05:00
parent 66478a04c0
commit d5d2c3bd2e
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2023/src/day08.clj
View File

@ -14,6 +14,7 @@
lcm (fn lcm [a b] (/ (* a b) (gcd a b)))] lcm (fn lcm [a b] (/ (* a b) (gcd a b)))]
(reduce lcm x))) (reduce lcm x)))
;; part 1
(let [[dir _ & lines] (get-puzzle-input 8) (let [[dir _ & lines] (get-puzzle-input 8)
dir-idx (map #(condp = % dir-idx (map #(condp = %
\L 0 \L 0
@ -29,6 +30,7 @@
drest drest
(inc n))))) (inc n)))))
;; part 2
(let [[dir _ & lines] (get-puzzle-input 8) (let [[dir _ & lines] (get-puzzle-input 8)
dir-idx (map #(condp = % dir-idx (map #(condp = %
\L 0 \L 0