diff options
| author | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-03-30 09:03:13 +0100 |
|---|---|---|
| committer | Simon Proctor <simon.proctor@zoopla.co.uk> | 2020-03-30 09:03:13 +0100 |
| commit | 84b520b0b614661ab828c8b59b06f946d8b60ae3 (patch) | |
| tree | a9fc893f62f3f1e9ce7b3447f6246588ec593899 | |
| parent | d526c68e31c401f1f62e95e1c15d349eb913c9c0 (diff) | |
| download | perlweeklychallenge-club-84b520b0b614661ab828c8b59b06f946d8b60ae3.tar.gz perlweeklychallenge-club-84b520b0b614661ab828c8b59b06f946d8b60ae3.tar.bz2 perlweeklychallenge-club-84b520b0b614661ab828c8b59b06f946d8b60ae3.zip | |
Permutations
| -rw-r--r-- | challenge-054/simon-proctor/raku/ch-1.p6 | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/challenge-054/simon-proctor/raku/ch-1.p6 b/challenge-054/simon-proctor/raku/ch-1.p6 new file mode 100644 index 0000000000..3670fe4fda --- /dev/null +++ b/challenge-054/simon-proctor/raku/ch-1.p6 @@ -0,0 +1,8 @@ +#!/usr/bin/env raku + +use v6; + +#| Print the kth permutation of the numbers from 1 to n +sub MAIN( UInt \n, Int \k where * >= 1 ) { + (1..n).permutations[k-1].join("").say; +} |