- Added Perl solution to "Pandigital Numbers" task of week 134.

1 files changed, 28 insertions, 0 deletions

diff --git a/challenge-134/mohammad-anwar/perl/ch-1.pl b/challenge-134/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..4e5aaf9bea
--- /dev/null
+++ b/challenge-134/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Algorithm::Combinatorics qw(permutations);
+
+=head1
+
+Week 134:
+
+    https://theweeklychallenge.org/blog/perl-weekly-challenge-134
+
+Task #1: Pandigital Numbers
+
+    Write a script to generate first 5 Pandigital Numbers in base 10.
+
+=cut
+
+my @digits  = (0,1,2,3,4,5,6,7,8,9);
+my @numbers = permutations(\@digits);
+my $count   = 0;
+
+foreach (@numbers) {
+    my $n = join('', @$_);
+    ($n =~ /^0/ && next) || (print "$n\n");
+    last if (++$count == 5);
+}