19 lines
263 B
Text
19 lines
263 B
Text
matching?:
|
|
swap 0
|
|
for c in chars:
|
|
if = c "]":
|
|
++
|
|
elseif = c "[":
|
|
if not dup:
|
|
drop
|
|
return false
|
|
--
|
|
not
|
|
|
|
!. matching? ""
|
|
!. matching? "[]"
|
|
!. matching? "[][]"
|
|
!. matching? "[[][]]"
|
|
!. matching? "]["
|
|
!. matching? "][]["
|
|
!. matching? "[]][[]"
|