ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 09:33:19 -09:00
Code Issues Packages Projects Releases Wiki Activity

golf

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-09 09:42:07 -05:00
parent 75a59a7a11
commit b989138719
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
2023/src/day09.clj
View File

@ -15,19 +15,13 @@
(defn solve [reduction]
(->> (get-puzzle-input 9)
(mapv parse-line)
(mapv #(let [pyrimid (generate-pyramid %)]
(loop [acc 0
line-idx (dec (count pyrimid))]
(if (< line-idx 0)
acc
(recur (reduction (get pyrimid line-idx) acc)
(dec line-idx))))))
(map parse-line)
(mapv (comp reverse generate-pyramid))
(map (partial reduce reduction 0))
(reduce +)))
;; part 1
(solve (fn [line num] (+ (peek line) num)))
(solve (fn [num line] (+ (peek line) num)))
;; part 2
(solve (fn [line num] (- (first line) num)))
(solve (fn [num line] (- (first line) num)))