Help for this page

Select Code to Download

Select or download this

sub reduce {
    my $exp = $_[0];
...
                     { $2 eq '+' ? $1+$3 : $1-$3 }e;
    return $exp;
}