11 lines
233 B
Clojure
11 lines
233 B
Clojure
(defn balanced? [s]
|
|
(empty?
|
|
(reduce
|
|
(fn [stack first]
|
|
(case first
|
|
\[ (conj stack \[)
|
|
\] (if (seq stack)
|
|
(pop stack)
|
|
(reduced [:UNDERFLOW]))))
|
|
'()
|
|
s)))
|