部分排列

作者：L. Grondin

http://rosalind.info/problems/pper/

示例输入

21 7

示例输出

51200

源代码： pper-grondilu.pl

use v6;

sub pper($n, $k) { [*] $n-$k+1 .. $n }

sub MAIN(Str $input = "21 7") {
    say pper(| $input.split: " ") % 1_000_000;
}