Re^2: Calculating statistical median

[jimbojones]

in reply to Re: Calculating statistical median
in thread Calculating statistical median

Hi.

Is there a special reason for the array reference? Versus this?

sub mean {
    my $result;
    foreach (@_) { $result += $_ }
    return $result / @_;
}

my @points = qw(1 2 3 4);

print mean @points;

[dirac]

Copying an array or hash into @_ takes time. Passing arrays and hashes by reference is straightforward.
See Benchmark
If you want median:

sub median { $_[0]->[ @{$_[0]} / 2 ] }

my @points = 0..100;

print median(\@points), "\n";

[jimbojones]

Hi
Thanks. Didn't know about the speed issue.
- j