golf

2023-12-09 09:56:12 -05:00
parent 943936a4e5
commit 46e48b5f4b
1 changed files with 6 additions and 7 deletions
@@ -12,13 +12,12 @@
        pyramid
        (recur (conj pyramid (mapv - (rest last-line) last-line)))))))

-(defn solve [reduction]
-  (->> (get-puzzle-input 9)
-       (map parse-line)
-       (map generate-pyramid)
-       (map reverse)
-       (map #(reduce reduction 0 %))
-       (reduce +)))
+(defn solve [reduction] (->> (get-puzzle-input 9)
+                             (map parse-line)
+                             (map generate-pyramid)
+                             (map reverse)
+                             (map #(reduce reduction 0 %))
+                             (reduce +)))

 ;; part 1
 (solve (fn [num line] (+ (peek line) num)))