Merge pull request #5045 from rage311/134

Added task 1 for challenge 134

1 files changed, 32 insertions, 0 deletions

diff --git a/challenge-134/rage311/perl/ch-1.pl b/challenge-134/rage311/perl/ch-1.pl
new file mode 100644
index 0000000000..d53ac7230f
--- /dev/null
+++ b/challenge-134/rage311/perl/ch-1.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+
+use 5.034;
+use warnings;
+use feature 'signatures';
+no warnings 'experimental::signatures';
+
+sub pandigital ($base, $count) {
+  return if $count < 1;
+  my $prev =
+    (
+      ($base ** $base - $base)
+      / ($base - 1) ** 2
+    )
+    + ($base - 1)
+    * ($base ** ($base - 2))
+    - 1;
+
+  my @results = $prev;
+
+  while (@results < $count) {
+    my %digits;
+    my @chars = split //, ++$prev;
+    $digits{$_} = 1 for @chars;
+    next unless keys %digits == $base;
+    push @results, join '', @chars;
+  }
+
+  return @results;
+}
+
+say for pandigital(10, 10);