blob: 6cd27afba9d5c44806f89b6f9b5b0a8b4b641d04 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
(def to-closing {\{ \} \( \) \[ \] \< \>})
(def to-score {\) 1 \] 2 \} 3 \> 4})
(defn check-line [input]
(loop [open [] in input]
(cond
(empty? in)
(map to-closing open)
(and (contains? #{\} \) \] \>} (first in))
(not= (to-closing (first open)) (first in)))
nil
:else
(recur
(if (contains? #{\{ \( \[ \<} (first in))
(concat [(first in)] open)
(rest open))
(rest in)
))))
(->> (slurp "./in")
(clojure.string/split-lines)
(mapv vec)
(mapv check-line)
(filter some?)
(mapv (partial reduce #(+ (* 5 %1) (to-score %2)) 0))
(sort)
(#(get (vec %) (quot (count %) 2)))
(println)
)
|
