Select Code to Download

sub sum {
    reduce { $a + $b } 0, @_; 
...
sub std_dev {   
    sqrt variance (@_);
}

sub reduce (&@) {
    my $code_ref = shift;
...
    }
    return $result;
}