diff options
| author | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-04-14 10:09:39 +0200 |
|---|---|---|
| committer | Jörg Sommrey <28217714+jo-37@users.noreply.github.com> | 2023-04-19 18:48:49 +0200 |
| commit | 587e0d7537f41e9c1e380085c57a965d4cb0f6fa (patch) | |
| tree | 7748cb30e6730efbe402d5cad3b9db8d39199b6d | |
| parent | be29b0279e69aa1e5343a5da7a3676ba02e61567 (diff) | |
| download | perlweeklychallenge-club-587e0d7537f41e9c1e380085c57a965d4cb0f6fa.tar.gz perlweeklychallenge-club-587e0d7537f41e9c1e380085c57a965d4cb0f6fa.tar.bz2 perlweeklychallenge-club-587e0d7537f41e9c1e380085c57a965d4cb0f6fa.zip | |
Challenge 054 task 1
| -rwxr-xr-x | challenge-054/jo-37/perl/ch-1.pl | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-054/jo-37/perl/ch-1.pl b/challenge-054/jo-37/perl/ch-1.pl new file mode 100755 index 0000000000..a3d48e406f --- /dev/null +++ b/challenge-054/jo-37/perl/ch-1.pl @@ -0,0 +1,18 @@ +#!/usr/bin/perl + +use v5.16; +use warnings; +use Math::Prime::Util 'numtoperm'; + +die <<EOS if @ARGV != 2; +usage: $0 N K + +N + permute numbers from 1 to N + +K + print k-th permutation of the numbers (one-based) + +EOS + +say "@{[map $_ + 1, numtoperm $ARGV[0], $ARGV[1] - 1]}"; |