Balanced brackets: Difference between revisions
Balanced brackets en BASIC256
(Fixed MiniScript function - added previously failing testcase) |
(Balanced brackets en BASIC256) |
||
Line 1,298:
1100 RETURN
2000 DATA , [], ][, [][], ][][, [[][]], []][[]</lang>
=={{header|BASIC256}}==
{{trans|Yabasic}}
<lang BASIC256>s$ = "[[]][]"
print s$; " = ";
if not check_brackets(s$) then print "not ";
print "ok"
end
function check_brackets(s$)
level = 0
for i = 1 to length(s$)
c$ = mid(s$, i, 1)
begin case
case c$ = "["
level = level + 1
case c$ = "]"
level = level - 1
if level < 0 then exit for
end case
next i
return level = 0
end function</lang>
=={{header|Batch File}}==
|