ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-11-27 11:32:45 -10:00
Code Issues Packages Projects Releases Wiki Activity

add comment

Browse Source
This commit is contained in:
Adam Jeniski 2025-10-19 05:02:22 -09:00
parent 43c69f4e0b
commit aa99e18bd7
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
2024/src/day19.clj
View File

@ -22,11 +22,10 @@
(if (>= pos (count puzzle))
(last dp)
(let [dp' (->> (map (partial + pos) word-sizes)
(filter (partial >= (count puzzle)))
(filter (partial >= (count puzzle))) ;; prevent NPE on substring overflow
(map (partial subs puzzle pos))
(filter words)
(map (comp dec count))
(map (partial + pos))
(map (comp (partial + pos) dec count))
(reduce (fn [acc idx] (update acc idx (partial + weight)))
dp))]
(recur puzzle (inc pos) (get dp' pos) dp')))))