From aa99e18bd7cefbd019e3cecf3b3510e57e5c25c8 Mon Sep 17 00:00:00 2001 From: ajet Date: Sun, 19 Oct 2025 05:02:22 -0900 Subject: [PATCH] add comment --- 2024/src/day19.clj | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/2024/src/day19.clj b/2024/src/day19.clj index 13069fd..57f7240 100644 --- a/2024/src/day19.clj +++ b/2024/src/day19.clj @@ -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')))))