Help for this page
sub solvepart($); ... ... sub reformat($){ ... sub solvepart($){
if ($given ~~ /(?:exit)|(?:end)|(?:quit)/i){ ... if ($VERBOSE or $VERBOSE ~~ /v(?:erbose)?/i){
my $num=qr/(-?\d++\.?\d*?)/; ... unshift(@stack, [$2,$3,$4]) while $given =~ s/(.*)\((\S++) ++(-?\d +++\.?\d*?) ++(-?\d++\.?\d*?)?\)/$1/;
if ($level[0]eq'+'){ $level[2] ... ?($value=$level[1] % $level[2]) :($value=$level[1] % $value); }
if ($level[0]eq'+'){ $value = $level[1] + $level[2] || $value; ... elsif ($level[0]eq'%'){ $value = $level[1] % $level[2] || $value; }
#!/usr/bin/perl use warnings; ... eval join $operator, @values; }
www.com | www.net | www.org
No recent polls found