Anonymous user
Balanced brackets: Difference between revisions
→{{header|Tcl}}
m (→{{header|J}}: simplify parsing test noun) |
|||
Line 220:
"][[][][]][[[]][[[[][]]]][]" -> NOT OK
"]][[][[][[[[]][[][]][[]]]]][" -> NOT OK
</pre>
=={{header|TUSCRIPT}}==
<lang tuscript>
$$ MODE DATA
$$ SET brackets=*
[
[]
][
[]]
][][
][][]
[[[]][
[]][[[]
][][][[]
][]][][[]
[]][[]][[]
][[]]][]]][
[[]][[[[]]]]
[[]]
[[[[]]]]
[[]][][]]]][[
$$ BUILD X_TABLE brackets=*
[[[[ (4 ]]]] )4
[[[ (3 ]]] )3
[[ (2 ]] )2
[ (1 ] )1
$$ MODE TUSCRIPT
LOOP b=brackets
SET x=CHECK_BRACKETS (b,brackets,a1,e1,a2,e2)
PRINT x," ",b
ENDLOOP
</lang>
Output:
<pre style='height:30ex;overflow:scroll'>
ERROR [
OK []
ERROR ][
ERROR []]
ERROR ][][
ERROR ][][]
ERROR [[[]][
ERROR []][[[]
ERROR ][][][[]
ERROR ][]][][[]
ERROR []][[]][[]
ERROR ][[]]][]]][
OK [[]][[[[]]]]
OK [[]]
OK [[[[]]]]
ERROR [[]][][]]]][[
OK
</pre>
| |||