iSecure blog

#
# usage:
#   print median(\@array);
#
        
sub median {
    my $rpole = shift;
    my @pole = @$rpole;

    my $ret;


    sort(@pole);

    if( (@pole % 2) == 1 ) {
        # lichy pocet
        $ret = $pole[((@pole+1) / 2)-1];
    } else {
        # sudy pocet
        $ret = ($pole[(@pole / 2)-1] + $pole[@pole / 2]) / 2;
    }

    return $ret;
}