You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
23 lines
532 B
Clojure
23 lines
532 B
Clojure
3 years ago
|
(def to-closing {\{ \} \( \) \[ \] \< \>})
|
||
|
|
(def to-score {\) 3 \] 57 \} 1197 \> 25137})
|
||
|
|
|
||
|
|
(defn check-line [input]
|
||
|
3 years ago
|
(loop [in input open '()]
|
||
|
3 years ago
|
(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)
|
||
|
|
))))))
|
||
|
3 years ago
|
|
||
|
|
(->> (slurp "./in")
|
||
|
|
(clojure.string/split-lines)
|
||
|
3 years ago
|
(map (comp to-score check-line vec))
|
||
|
3 years ago
|
(filter some?)
|
||
|
|
(apply +)
|
||
|
|
(println))
|
||
|
|
|