This commit is contained in:
Adam Jeniski 2023-12-09 09:54:48 -05:00
parent 3bbbc8c8ce
commit 943936a4e5

View File

@ -10,8 +10,7 @@
(let [last-line (peek pyramid)] (let [last-line (peek pyramid)]
(if (every? zero? last-line) (if (every? zero? last-line)
pyramid pyramid
(recur (conj pyramid (recur (conj pyramid (mapv - (rest last-line) last-line)))))))
(mapv - (rest last-line) last-line)))))))
(defn solve [reduction] (defn solve [reduction]
(->> (get-puzzle-input 9) (->> (get-puzzle-input 9)