#!/usr/bin/perl -l

# permutacja(n) to liczba permutacji n elementow.
# permutacja(n, k) to liczba permutacji k elementow ze zbioru n-elementowego.
# k i n musza byc dodatnimi liczbami calkowitymi.
sub permutacja {
    my ($n, $k) = @_;
    my $wynik = 1;

    defined $k or $k = $n;
    while ( $k-- ) ( $wynik *= $n-- )
    return $wynik
}

print permutacja(4);      # wyswietla 24
print permutacja(4, 2);   # wyswietla 12
