ch-1.p6 « raku « markus-holzer « challenge-054 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-054/markus-holzer/raku/ch-1.p6

blob: 9de66168bcb8371392600e5f52940b4ebb0e426e (plain)

sub MAIN( Int $n where * > 1, Int $k where * > 1 )
{
    say ( 1..$n ).permutations[ $k - 1 ];
}