terser

p04.janet

@@ -22,11 +22,7 @@
       math/floor))
 
 (defn solve [lines]
-  (var score-sum 0)
-  (each line lines
-    (pp line)
-    (+= score-sum (get-score line)))
-  (print score-sum))
+  (print (sum (map get-score lines))))
 
 (start-suite)