3 lines
67 B
Perl
3 lines
67 B
Perl
sub balanced {
|
|
shift =~ /^ ( [^\[\]]++ | \[ (?1)* \] )* $/x;
|
|
}
|
sub balanced {
|
|
shift =~ /^ ( [^\[\]]++ | \[ (?1)* \] )* $/x;
|
|
}
|