blob: 60ed1e68fa711d4c928ca1bbbf407cef367f17ec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(def to-closing {\{ \} \( \) \[ \] \< \>})
(def to-score {\) 3 \] 57 \} 1197 \> 25137})
(defn check-line [input]
(loop [in input open '()]
(when-let [c (first in)]
(if (some->> (#{\} \) \] \>} c) (not= (first open)))
c
(recur
(rest in)
(if-let [op (to-closing c)]
(conj open op)
(rest open)
))))))
(->> (slurp "./in")
(clojure.string/split-lines)
(map (comp to-score check-line vec))
(filter some?)
(apply +)
(println))
|
