calculate mean & median

gistfile1.pl

sub mean {
	my @values = @_;
	return sum(@values) / @values;
}

sub median {
	my @sorted = sort { $a <=> $b } @_;
	return @sorted % 2
		? $sorted[int(@sorted / 2)]
		: mean(@sorted[@sorted / 2 - 1, @sorted / 2]);
}