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-06 05:58:21 -10:00
parent 63746d88b8
commit ac6c0097e6
1 changed files with 12 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
2025/src/day06.clj
View File

@ -3,33 +3,28 @@
(def input (input-manager/get-input 2025 6))
(def num-line? (comp not #{\* \+} first))
(def nums-raw (take-while num-line? input))
(def nums (map (comp (partial map parse-long) #(re-seq #"\d+" %)) nums-raw))
(def ops (->> input
(drop-while num-line?)
(first)
(def numeric-line? (comp not #{\* \+} first))
(def numeric-lines (take-while numeric-line? input))
(def nums (map #(map parse-long (re-seq #"\d+" %)) numeric-lines))
(def ops (->> (drop-while numeric-line? input)
first
(filter (partial not= \space))
(mapv {\+ +, \* *})))
;; part 1
(->> nums
(apply map (fn [op & rst]
(apply op rst))
ops)
(apply +))
(apply + (apply map (fn [op & rst] (apply op rst))
ops
nums))
;; part 2
(->> (range (count (first nums-raw)))
(->> (range (count (first numeric-lines)))
(reduce (fn [{:keys [op-idx curr-nums] :as acc} col-idx]
(let [op (get ops op-idx)
col (->> nums-raw
(map #(.charAt % col-idx))
(let [op (ops op-idx)
col (->> (map #(.charAt % col-idx) numeric-lines)
(filter (partial not= \space))
(map #(- (int %) (int \0))))]
(if (empty? col)
(-> acc
(update :ans + (apply op curr-nums))
(-> (update acc :ans + (apply op curr-nums))
(update :op-idx inc)
(assoc :curr-nums []))
(update acc :curr-nums conj (parse-long (apply str col))))))