This commit is contained in:
Adam Jeniski 2023-12-09 10:00:06 -05:00
parent dd3943eddd
commit 3bfcd41f4f

View File

@ -12,9 +12,7 @@
(recur (conj pyramid (mapv - (rest last-line) last-line))))))) (recur (conj pyramid (mapv - (rest last-line) last-line)))))))
(defn solve [reduction] (->> (get-puzzle-input 9) (defn solve [reduction] (->> (get-puzzle-input 9)
(map parse-line) (map (comp reverse generate-pyramid parse-line))
(map generate-pyramid)
(map reverse)
(map #(reduce reduction 0 %)) (map #(reduce reduction 0 %))
(reduce +))) (reduce +)))