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-05 20:44:22 -10:00
parent fdd38bd6b1
commit b0d0cf5b59
1 changed files with 14 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
2025/src/day06.clj
View File

@ -28,19 +28,17 @@
op-idx 0
curr-nums []
acc 0]
(if (> col-idx MAX_LINE_IDX)
(+ acc (apply (get ops op-idx) curr-nums))
(let [col (->> nums-raw
(map #(.charAt % col-idx))
(filter (partial not= \space))
(map #(- (int %) (int \0))))
op (get ops op-idx)]
(if (empty? col)
(recur (inc col-idx)
(inc op-idx)
[]
(+ acc (apply op curr-nums)))
(recur (inc col-idx)
op-idx
(conj curr-nums (parse-long (apply str col)))
acc)))))
(let [op (get ops op-idx)
ans (+ acc (apply op curr-nums))]
(if (> col-idx MAX_LINE_IDX)
ans
(let [col (->> nums-raw
(map #(.charAt % col-idx))
(filter (partial not= \space))
(map #(- (int %) (int \0))))]
(if (empty? col)
(recur (inc col-idx) (inc op-idx) [] ans)
(recur (inc col-idx)
op-idx
(conj curr-nums (parse-long (apply str col)))
acc))))))