ajet/advent-of-code
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

franz newline

Browse Source
This commit is contained in:
Adam Jeniski 2025-12-19 08:52:47 -10:00
parent f88a28cad2
commit d55ca4c019
1 changed files with 5 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
2025/src/day11.clj
View File

@ -7,14 +7,11 @@
(partial re-seq #"[a-z]{3}")))
(into {})))
(def count-paths
(memoize
(fn [start target]
(let [edges (input start)]
(if (contains? edges target)
1
(apply + (map #(count-paths % target) edges)))))))
(def count-paths (memoize (fn [start target]
(let [edges (input start)]
(if (contains? edges target)
1
(apply + (map #(count-paths % target) edges)))))))
;; part 1
(count-paths "you" "out")