8 lines
236 B
Raku
8 lines
236 B
Raku
sub balanced($s) {
|
|
.none < 0 and .[*-1] == 0
|
|
given ([\+] '\\' «leg« $s.comb).cache;
|
|
}
|
|
|
|
my $n = prompt "Number of bracket pairs: ";
|
|
my $s = <[ ]>.roll($n*2).join;
|
|
say "$s { balanced($s) ?? "is" !! "is not" } well-balanced"
|