Balanced brackets: Difference between revisions
no edit summary
No edit summary |
|||
Line 6,689:
@Std/StdIO/Print(; "%s : %s\n" ;`Char[=] \brackets = MakeNew_[]s(10) /* all bracket strings are of length 10 */; AreBalanced(brackets) ? "Ok" : "bad")
// note that starting arg of Print is missed by using ';' - default arg value is allowed to use for any arg, even if next args are written</lang>
=={{header|Yabasic}}==
<lang Yabasic>sub check_brackets(s$)
local level, i
for i = 1 to len(s$)
switch mid$(s$, i, 1)
case "[": level = level + 1 : break
case "]": level = level - 1 : if level < 0 break 2
end switch
next i
return level = 0
end sub
s$ = "[[]][]"
print s$, " = ";
if not check_brackets(s$) print "not ";
print "ok"</lang>
=={{header|zkl}}==
| |||