Select Code to Download

sub balanced
{
...
        return 0 if /[()]/;
        return 1;
}

sub balanced
{
...
                } elsif ($char eq ')') {
                        $stack--;
                }

                return 0 if $stack < 0;
    }

        return $stack ? 0 : 1;
}