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)]
(if (every? zero? last-line)
pyramid
(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)