Help for this page

Select Code to Download

Select or download this

$ cat ideone-6TneLv.pl
#!/usr/bin/perl
our @v;   # external values stack
...
-2**4 = -16
1+2+3+4+5+6+7+8+9+10 = 55

Select or download this

sub Calc {
    local($_) = @_;
    local @v = ();
...
    s/[\r\n]*//g; ## "chomp"
    print $_," = ", Calc($_), "\n"; 
}