- Added solutions by Colin Crain.

1 files changed, 41 insertions, 0 deletions

diff --git a/challenge-047/colin-crain/perl/ch-2.pl b/challenge-047/colin-crain/perl/ch-2.pl
new file mode 100644
index 0000000000..34b66b58fe
--- /dev/null
+++ b/challenge-047/colin-crain/perl/ch-2.pl
@@ -0,0 +1,41 @@
+#! /opt/local/bin/perl
+#
+#       gapful.pl
+#
+
+#       PWC 47 - TASK #2
+#       Gapful Number
+#             Write a script to print first 20 Gapful Numbers greater than or
+#             equal to 100. #   #Please check out the page for more information
+#             about Gapful Numbers.
+#
+#                 A108343     Gapful numbers >= 100: numbers that are
+#                   divisible by the number formed by their first and last
+#                   digit. Numbers up to 100 trivially have this property
+#                   and are excluded.
+#
+#                 100, 105, 108, 110, 120, 121, 130, 132, 135, 140, 143, 150,
+#                 154, 160, 165, 170, 176, 180, 187, 190, 192, 195, 198, 200,
+#                 220, 225, 231, 240, 242, 253, 260, 264, 275, 280, 286, 297,
+#                 300, 315, 330, 341, 352, 360, 363, 374, 385, 390, 396, 400,
+#                 405, 440, 451
+#
+#       2020 colin crain
+## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ## ##
+
+
+
+use warnings;
+use strict;
+use feature ":5.26";
+
+## ## ## ## ## MAIN
+
+my $testval = 99;
+my @output;
+
+while (scalar @output < 20 && $testval++ ) {
+    my $gap = substr( $testval, 0, 1 ) . substr( $testval, -1, 1 );
+    push @output, $testval if $testval % $gap == 0;
+}
+say for @output;