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

golf

Browse Source
This commit is contained in:
Adam Jeniski 2023-12-09 09:56:12 -05:00
parent 943936a4e5
commit 46e48b5f4b
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
2023/src/day09.clj
View File

@ -12,13 +12,12 @@
pyramid
(recur (conj pyramid (mapv - (rest last-line) last-line)))))))
(defn solve [reduction]
(->> (get-puzzle-input 9)
(map parse-line)
(map generate-pyramid)
(map reverse)
(map #(reduce reduction 0 %))
(reduce +)))
(defn solve [reduction] (->> (get-puzzle-input 9)
(map parse-line)
(map generate-pyramid)
(map reverse)
(map #(reduce reduction 0 %))
(reduce +)))
;; part 1
(solve (fn [num line] (+ (peek line) num)))