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