m1emi1em.dev
this repo has no description
(D3P2): Solution
+7
-4
src/aoc2025/day3.clj
+7
-4
src/aoc2025/day3.clj
···
14
15
(defn- grab-biggest
16
([bank] (grab-biggest 1 [] bank))
17
([padding found bank]
18
(let [indexed-bank (util/minv bank)
19
[index-biggest value-biggest] (->> indexed-bank (drop-last padding) (reduce indexed-preserving-max))]
···
23
(conj found value-biggest)
24
(drop (inc index-biggest) bank))))))
25
26
-
(defn- part1 [banks]
27
(->> banks
28
-
(map (comp util/gluen #(trampoline grab-biggest %)))
29
(reduce +)))
30
31
(defn solve
32
([] (solve "03.txt"))
33
([fname]
34
-
(->> (parse-file fname) part1)))
35
36
(solve "03-test.txt")
37
-
(solve)
···
14
15
(defn- grab-biggest
16
([bank] (grab-biggest 1 [] bank))
17
+
([padding bank] (grab-biggest padding [] bank))
18
([padding found bank]
19
(let [indexed-bank (util/minv bank)
20
[index-biggest value-biggest] (->> indexed-bank (drop-last padding) (reduce indexed-preserving-max))]
···
24
(conj found value-biggest)
25
(drop (inc index-biggest) bank))))))
26
27
+
(defn- generic-part-wrapper [banks battery-count]
28
(->> banks
29
+
(map (comp util/gluen #(trampoline grab-biggest battery-count %)))
30
(reduce +)))
31
32
+
(defn- part1 [banks] (generic-part-wrapper banks 1))
33
+
(defn- part2 [banks] (generic-part-wrapper banks 11))
34
+
35
(defn solve
36
([] (solve "03.txt"))
37
([fname]
38
+
(->> (parse-file fname) ((juxt part1 part2)))))
39
40
(solve "03-test.txt")