RosettaCodeData/Task/Balanced-brackets/Perl-6/balanced-brackets-4.pl6

grammar BalBrack { token TOP { '[' <TOP>* ']' } }

my $n = prompt "Number of bracket pairs: ";
my $s = ('[' xx $n, ']' xx $n).flat.pick(*).join;
say "$s { BalBrack.parse($s) ?? "is" !! "is not" } well-balanced";
March 2014 update 2014-04-02 16:56:35 +00:00			`grammar BalBrack { token TOP { '[' <TOP>* ']' } }`
langs a-z 2013-04-10 22:43:41 -07:00
			`my $n = prompt "Number of bracket pairs: ";`
Another update from ingydotnet^djgoku 2015-11-18 06:14:39 +00:00			`my $s = ('[' xx $n, ']' xx $n).flat.pick(*).join;`
langs a-z 2013-04-10 22:43:41 -07:00			`say "$s { BalBrack.parse($s) ?? "is" !! "is not" } well-balanced";`