Select Code to Download

Select or download this

sub solvepart($);
...
...
sub reformat($){
...
sub solvepart($){

Select or download this

    if ($given ~~ /(?:exit)|(?:end)|(?:quit)/i){
...
    if ($VERBOSE or $VERBOSE ~~ /v(?:erbose)?/i){

Select or download this

my $num=qr/(-?\d++\.?\d*?)/;
...
    unshift(@stack, [$2,$3,$4]) while $given =~ s/(.*)\((\S++) ++(-?\d
+++\.?\d*?) ++(-?\d++\.?\d*?)?\)/$1/;

Select or download this

        if ($level[0]eq'+'){
            $level[2]
...
                                ?($value=$level[1] % $level[2])
                                :($value=$level[1] % $value);
                }

Select or download this

        if ($level[0]eq'+'){
            $value = $level[1] + $level[2] || $value;
...
        elsif ($level[0]eq'%'){
                        $value = $level[1] % $level[2] || $value;
                }

Select or download this

#!/usr/bin/perl
use warnings;
...
    eval join $operator, @values;
    }