Anonymous user
Averages/Median: Difference between revisions
→{{header|Perl}}
Line 698:
{{trans|Python}}
<lang perl>sub median
{my @a = sort {$a <=> $b} @_;
return ($a[$#a/2] + $a[@a/2]) / 2;}</lang>
|
Line 698:
{{trans|Python}}
<lang perl>sub median
{my @a = sort {$a <=> $b} @_;
return ($a[$#a/2] + $a[@a/2]) / 2;}</lang>
|