RosettaCodeData/Task/Balanced-brackets/J/balanced-brackets-1.j

mirror of https://github.com/acmeism/RosettaCodeData.git
bracketDepth    =:  '[]' -&(+/\)/@:(=/) ]
checkBalanced   =:  _1 -.@e. bracketDepth
genBracketPairs =:  (?~@# { ])@#"0 1&'[]'          NB. bracket pairs in arbitrary order
	`bracketDepth =: '[]' -&(+/\)/@:(=/) ]`
	`checkBalanced =: _1 -.@e. bracketDepth`
	`genBracketPairs =: (?~@# { ])@#"0 1&'[]' NB. bracket pairs in arbitrary order`