Averages/Median: Difference between revisions
no edit summary
(add Haskell example) |
No edit summary |
||
Line 316:
disp(median2(b)) % 4.25
disp(median(b))</lang>
=={{header|Perl 6}}==
<lang perl6>
#built on Rakudo and Parrot in April 2009
#to be run as perl6 filename.pl
sub median ( List *@numbers --> Num) {
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}}==
| |||