golf
This commit is contained in:
+2
-1
@@ -16,7 +16,8 @@
|
|||||||
(defn solve [reduction]
|
(defn solve [reduction]
|
||||||
(->> (get-puzzle-input 9)
|
(->> (get-puzzle-input 9)
|
||||||
(map parse-line)
|
(map parse-line)
|
||||||
(mapv (comp reverse generate-pyramid))
|
(map generate-pyramid)
|
||||||
|
(map reverse)
|
||||||
(map (partial reduce reduction 0))
|
(map (partial reduce reduction 0))
|
||||||
(reduce +)))
|
(reduce +)))
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user