From 587e0d7537f41e9c1e380085c57a965d4cb0f6fa Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Fri, 14 Apr 2023 10:09:39 +0200
Subject: Challenge 054 task 1

---
 challenge-054/jo-37/perl/ch-1.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100755 challenge-054/jo-37/perl/ch-1.pl

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]}";
-- 
cgit