#!/usr/bin/perl

# $mediana = srednia_mediana(\@tablica) 
# Oblicza srednia mediane dla tablicy z wartosciami.
#
sub srednia_mediana {
    my $element = shift;
    my @tablica = sort {$a <=> $b} @$element;
    if (@tablica % 2) {
        return $tablica[@tablica/2];
    } else {
        return ($tablica[@tablica/2-1] + $tablica[@tablica/2]) / 2;
    }
}

# $mediana = mediana(\@tablica) 
# Oblicza mediane nieparzysta dla tablicy z wartosciami.
#
sub mediana { $_[0]->[ @{$_[0]} / 2 ] }

# $mediana = mediana_nieparzysta(\@tablica)
# Oblicza mediane nieparzysta dla tablicy z wartosciami.
#
sub mediana_nieparzysta {
    my $element = shift;
    my @tablica = sort { $a <=> $b } @$element;
    return $tablica[(@tablica - (0,0,1,0)[@tablica & 3]) / 2];
}

