# wybierz($n, $k) to liczba sposobow, na jakie mozna wybrac $k elementow
# ze zbioru n-elementowego, gdzie kolejnosc wyboru nie ma znaczenia.
#
sub wybierz {
    my ($n, $k) = @_;
    my ($wynik, $j) = (1, 1);

    return 0 if $k > $n || $k < 0;
    $k = ($n - $k) if ($n - $k) < $k;

    while ( $j <= $k ) {
        $wynik *= $n--;
        $wynik /= $j++;
    }
    return $wynik;
}


wybierz_prosto {
    my ($n, $k) = @_;
    return permutacja($n, $k) / permutacja($n-$k);
}
