RosettaCodeData/Task/Balanced-brackets/J/balanced-brackets-1.j
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

3 lines
172 B
Text

bracketDepth =: '[]' -&(+/\)/@:(=/) ]
checkBalanced =: _1 -.@e. bracketDepth
genBracketPairs =: (?~@# { ])@#"0 1&'[]' NB. bracket pairs in arbitrary order