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

clean up

Browse Source
This commit is contained in:
Adam Jeniski 2025-12-05 20:31:57 -10:00
parent 0093533054
commit d853e89137
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
2025/src/day06.clj
View File

@ -4,17 +4,16 @@
(def input
(input-manager/get-input 2025 6))
(def row-count 4)
(def nums-raw (take row-count input))
(def num-line? (comp not #{\* \+} first))
(def nums-raw (take-while num-line? input))
(def nums (->> nums-raw
(map #(map parse-long (re-seq #"\d+" %)))))
(def op-map {\+ +, \* *})
(def ops (as-> input v
(drop row-count v)
(drop-while num-line? v)
(first v)
(filter (partial not= \space) v)
(mapv op-map v)))
(def LEN (count (first nums-raw)))
;; part 1
(->> nums
@ -24,11 +23,12 @@
(apply +))
;; part 2
(def MAX_LINE_IDX (dec (count (first nums-raw))))
(loop [col-idx 0
op-idx 0
curr-nums []
acc 0]
(if (>= col-idx LEN)
(if (> col-idx MAX_LINE_IDX)
(+ acc (apply (get ops op-idx) curr-nums))
(let [col (->> nums-raw
(map #(.charAt % col-idx))