D
map #(if (= % "(" 1 -1))
на (replace {"(" 1 ")" -1})😀
Size: a a a
D
map #(if (= % "(" 1 -1))
на (replace {"(" 1 ")" -1})VM
map #(if (= % "(" 1 -1))
на (replace {"(" 1 ")" -1})D
D
VM
D
TP
A
A
TP
TP
DL
map #(if (= % "(" 1 -1))
на (replace {"(" 1 ")" -1})(defn foo [s]
(->> s
(reduce (fn [[acc m] x]
(let [acc* (case x
\( (inc acc)
\) (dec acc)
acc)]
[acc* (max m acc*)]))
[0 0])
second))
(def foo
(comp second
(partial reduce
(fn [[acc m] x]
(let [ch (get {\( inc \) dec} x identity)
acc* (ch acc)]
[acc* (max m acc*)]))
[0 0])))
DF
map #(if (= % "(" 1 -1))
на (replace {"(" 1 ")" -1})DF
DF
DF
TL
RS
TL