Anonymous user
Balanced brackets: Difference between revisions
→{{header|D}}
(→Tcl: Added implementation) |
|||
Line 14:
void main() {
foreach (s; ",[],[][],[[][]],][,][][,[]][[]".split(","))
writefln("%
s.balancedParens('[', ']') ? "" : " not");
}</lang>
Output:
<pre>"" is balanced
"[]" is balanced
"[][]" is balanced
"[[][]]" is balanced
"][" is not balanced
"][][" is not balanced
"[]][[]" is not balanced</pre>
=={{header|Perl 6}}==
<lang perl6>sub balanced($s) {
|