ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-11-27 11:52:44 -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)) (if (>= pos (count puzzle))
(last dp) (last dp)
(let [dp' (->> (map (partial + pos) word-sizes) (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)) (map (partial subs puzzle pos))
(filter words) (filter words)
(map (comp dec count)) (map (comp (partial + pos) dec count))
(map (partial + pos))
(reduce (fn [acc idx] (update acc idx (partial + weight))) (reduce (fn [acc idx] (update acc idx (partial + weight)))
dp))] dp))]
(recur puzzle (inc pos) (get dp' pos) dp'))))) (recur puzzle (inc pos) (get dp' pos) dp')))))