RosettaCodeData/Task/Balanced-brackets/J/balanced-brackets-1.j
2023-07-01 13:44:08 -04:00

3 lines
172 B
Text

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