golf
This commit is contained in:
+1
-3
@@ -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 +)))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user