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:00:41 -05:00
parent d5d2c3bd2e
commit 535318f6e9
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
2023/src/day09.clj
View File

@ -14,19 +14,16 @@
(recur (conj pyramid
(mapv - (rest last-line) last-line)))))))
(defn get-missing-num [nums reduction]
(let [pyrimid (generate-pyramid nums)]
(loop [acc 0
line-idx (dec (count pyrimid))]
(if (< line-idx 0)
acc
(recur (reduction (get pyrimid line-idx) acc)
(dec line-idx))))))
(defn solve [reduction]
(->> (get-puzzle-input 9)
(mapv parse-line)
(mapv #(get-missing-num % reduction))
(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))))))
(reduce +)))
;; part 1