Anonymous user
Balanced brackets: Difference between revisions
→Icon and Unicon
No edit summary |
|||
Line 801:
^
</pre>
=={{header|Icon}} and {{header|Unicon}}==
<lang Icon>procedure main(arglist)
every s := genbs(!arglist) do
write(image(s), if isbalanced(s) then " is balanced." else " is unbalanced")
end
procedure isbalanced(s) # test if a string is balanced re: []
return (s || " ") ? (bal(,'[',']') = *s+1)
end
procedure genbs(i) # generate strings of i pairs of []
s := ""
every 1 to i do s ||:= "[]" # generate i pairs
every !s := ?s # shuffle
return s
end</lang>
Output:<pre>
> isbal.exe 2 3 3 3 3 3 3 3 4 4 4
"[[]]" is balanced.
"]]]]]]" is unbalanced
"]]]]]]" is unbalanced
"[][][]" is balanced.
"]][[[]" is unbalanced
"[[[][[" is unbalanced
"]]]]]]" is unbalanced
"[]]]]]" is unbalanced
"]][]][]]" is unbalanced
"[[[[[][[" is unbalanced
"[[[[[][]" is unbalanced</pre>
=={{header|J}}==
| |||