[ create a new paste ] login | about

Link: http://codepad.org/CSsjnUoZ    [ raw code | output | fork ]

sironekotoro - Perl, pasted on Sep 23:
1
2
3
4
5
6
7
8
9
10
11
my @tmp_array = (1, 3, 5, 7, 9,);
print "Total: ", compute_sum(\@tmp_array), "\n";

sub compute_sum {
    my ($aref) = @_;
    my $sum = 0;
    foreach (@$aref){
        $sum += $_;
    }
    return $sum;
}


Output:
1
Total: 25


Create a new paste based on this one


Comments: