ajet/advent-of-code
1
0
Fork 0
mirror of https://github.com/Ajetski/advent-of-code.git synced 2025-09-30 13:03: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] (defn solve [reduction]
(->> (get-puzzle-input 9) (->> (get-puzzle-input 9)
(mapv parse-line) (map parse-line)
(mapv #(let [pyrimid (generate-pyramid %)] (mapv (comp reverse generate-pyramid))
(loop [acc 0 (map (partial reduce reduction 0))
line-idx (dec (count pyrimid))]
(if (< line-idx 0)
acc
(recur (reduction (get pyrimid line-idx) acc)
(dec line-idx))))))
(reduce +))) (reduce +)))
;; part 1 ;; part 1
(solve (fn [line num] (+ (peek line) num))) (solve (fn [num line] (+ (peek line) num)))
;; part 2 ;; part 2
(solve (fn [line num] (- (first line) num))) (solve (fn [num line] (- (first line) num)))