Rosetta Code

Averages/Median: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Underscore (talk | contribs)
845 edits
m →‎{{header|Perl}}: Slightly shortened.
Underscore (talk | contribs)
845 edits
→‎{{header|Perl 6}}: Replaced with a briefer implementation in the style of the Perl 5 and Python.
Line 478:
 
=={{header|Perl 6}}==
{{works with|Rakudo|#22 "Thousand Oaks"}}
<!-- Despite its name, Perl 6 is an entirely separate language from Perl 5. Please don't merge this section with the above. -->
 
<lang perl6>sub median {
#built on Rakudo and Parrot in April 2009
my @a = sort @_;
#to be run as perl6 filename.pl
return (@a[@a.end / 2] + @a[@a / 2]) / 2;
sub median ( List *@numbers --> Num) {
}</lang>
if @numbers.elems == 1 {
return @numbers[0] ;
}
my @sorted = @numbers.sort( { $^a <=> $^b } ) ;
my $center = @sorted.elems / 2 ;
if @sorted.elems % 2 == 1 {
return @sorted[ int( $center ) + 1 ] ;
}
else {
return ( @sorted[ $center ] + @sorted[ $center + 1 ] ) / 2 ;
}
}
my @list = ( 3 , 34.6 , 2.95 , 13 , -5.3 ) ;
say "The median of list @list is { median ( @list ) } !" ;</lang>
 
=={{header|Python}}==
Retrieved from "https://rosettacode.org/wiki/Averages/Median"