From 535318f6e9b0a5fac9198ce82619efafbec8896f Mon Sep 17 00:00:00 2001
From: Adam Jeniski <adam.jeniski@flashtalking.com>
Date: Sat, 9 Dec 2023 09:00:41 -0500
Subject: [PATCH] golf

---
 2023/src/day09.clj | 17 +++++++----------
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/2023/src/day09.clj b/2023/src/day09.clj
index 0e1d417..72a0698 100644
--- a/2023/src/day09.clj
+++ b/2023/src/day09.clj
@@ -14,19 +14,16 @@
         (recur (conj pyramid
                      (mapv - (rest last-line) last-line)))))))
 
-(defn get-missing-num [nums reduction]
-  (let [pyrimid (generate-pyramid nums)]
-    (loop [acc 0
-           line-idx (dec (count pyrimid))]
-      (if (< line-idx 0)
-        acc
-        (recur (reduction (get pyrimid line-idx) acc)
-               (dec line-idx))))))
-
 (defn solve [reduction]
   (->> (get-puzzle-input 9)
        (mapv parse-line)
-       (mapv #(get-missing-num % reduction))
+       (mapv #(let [pyrimid (generate-pyramid %)]
+                (loop [acc 0
+                       line-idx (dec (count pyrimid))]
+                  (if (< line-idx 0)
+                    acc
+                    (recur (reduction (get pyrimid line-idx) acc)
+                           (dec line-idx))))))
        (reduce +)))
 
 ;; part 1