day9: clean up

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)
+     (map (comp to-score check-line vec))
-     (mapv check-line)
      (filter some?)
-     (mapv to-score)
      (apply +)
      (println))
 

day10/part2.clj

@@ -2,7 +2,7 @@
 (def to-score {\) 1 \] 2 \} 3 \> 4})
 
 (defn check-line [input]
-  (loop [open [] in input]
+  (loop [in input open '()]
     (cond
       (empty? in)
       (map to-closing open)
@@ -11,20 +11,18 @@
       nil
       :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)
+     (map (comp check-line vec))
-     (mapv check-line)
      (filter some?)
-     (mapv (partial reduce #(+ (* 5 %1) (to-score %2)) 0))
+     (map (partial reduce #(+ (* 5 %1) (to-score %2)) 0))
      (sort)
-     (#(get (vec %) (quot (count %) 2)))
+     (#(nth % (quot (count %) 2)))
-     (println)
+     (println))
-     )