Balanced brackets: Difference between revisions
Content added Content deleted
(Fixed MiniScript function - added previously failing testcase) |
(Balanced brackets en BASIC256) |
||
Line 1,298: | Line 1,298: | ||
1100 RETURN |
1100 RETURN |
||
2000 DATA , [], ][, [][], ][][, [[][]], []][[]</lang> |
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}}== |
=={{header|Batch File}}== |