Partial Permutations
AUTHOR
L. Grondin
http://rosalind.info/problems/pper/
Sample input
21 7
Sample output
51200
use v6;
sub pper($n, $k) { [*] $n-$k+1 .. $n }
sub MAIN(Str $input = "21 7") {
say pper(| $input.split: " ") % 1_000_000;
}
# vim: expandtab shiftwidth=4 ft=perl6