5 lines
208 B
Clojure
5 lines
208 B
Clojure
(defn balanced? [s]
|
|
(let [opens-closes (->> s
|
|
(map {\[ 1, \] -1})
|
|
(reductions + 0))]
|
|
(and (not-any? neg? opens-closes) (zero? (last opens-closes)))))
|