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