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

golf

Browse Source
This commit is contained in:
Adam Jeniski 2025-12-12 12:19:40 -10:00
parent 56a1bed93d
commit 50e6464eba
1 changed files with 6 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
2025/src/day10.clj
View File

@ -24,19 +24,15 @@
(def input (map parse-line (input-manager/get-input 2025 10))) (def input (map parse-line (input-manager/get-input 2025 10)))
(defn apply-ops [v ops] (defn minimum-button-mashing [{:keys [buttons indicators]}]
(reduce (fn [acc op]
(reduce #(update %1 %2 not) acc op))
v
ops))
(defn minimum-button-mashing [{ops :buttons v :indicators}]
(loop [i 0 (loop [i 0
cnt 1] cnt 1]
(if (>= i (combo/count-combinations ops cnt)) (if (>= i (combo/count-combinations buttons cnt))
(recur 0 (inc cnt)) (recur 0 (inc cnt))
(let [v' (apply-ops v (combo/nth-combination ops cnt i))] (let [indicators' (reduce (partial reduce #(update %1 %2 not))
(if (every? (complement identity) v') indicators
(combo/nth-combination buttons cnt i))]
(if (every? (complement identity) indicators')
cnt cnt
(recur (inc i) cnt)))))) (recur (inc i) cnt))))))