Averages/Median: Difference between revisions
Content deleted Content added
added Ursala |
Underscore (talk | contribs) Added Perl 5. |
||
| Line 316: | Line 316: | ||
disp(median2(b)) % 4.25 |
disp(median2(b)) % 4.25 |
||
disp(median(b))</lang> |
disp(median(b))</lang> |
||
=={{header|Perl}}== |
|||
{{trans|Python}} |
|||
<lang perl>sub median |
|||
{my @a = sort @_; |
|||
return ($a[(@a - 1) / 2] + $a[@a/2]) / 2;}</lang> |
|||
=={{header|Perl 6}}== |
=={{header|Perl 6}}== |
||