Balanced brackets: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 4,900:
// Generate a string with N opening brackets [ and with N closing brackets ], in some arbitrary order.
function randomBrackets(max as long) {
if max<
def putbracket()=mid$("[[[[]]",random(1,6),1)
dim a(random(1, max
=a()#str$("")
}
Line 4,917:
boolean m
do
k=randomBrackets(
m=check(k)
print k;@(12);": ";if$(m->"OK", "NOT OK")
| |||