1 files changed, 6 insertions, 8 deletions
diff --git a/day10/part1.clj b/day10/part1.clj
index 2bef696..1424fd8 100644
--- a/day10/part1.clj
+++ b/day10/part1.clj
@@ -2,7 +2,7 @@
 (def to-score {\) 3 \] 57 \} 1197 \> 25137})
 
 (defn check-line [input]
-  (loop [open [] in input]
+  (loop [in input open '()]
     (cond
       (empty? in)
       nil
@@ -11,18 +11,16 @@
       (first in)
       :else
       (recur
-        (if (contains? #{\{ \( \[ \<} (first in))
-          (concat [(first in)] open)
-          (rest open))
         (rest in)
-        ))))
+        (if (contains? #{\{ \( \[ \<} (first in))
+          (conj open (first in))
+          (rest open)
+          )))))
 
 (->> (slurp "./in")
      (clojure.string/split-lines)
-     (mapv vec)
-     (mapv check-line)
+     (map (comp to-score check-line vec))
      (filter some?)
-     (mapv to-score)
      (apply +)
      (println))