add solution for week 47 task 2

1 files changed, 27 insertions, 0 deletions

diff --git a/challenge-047/steven-wilson/perl/ch-02.pl b/challenge-047/steven-wilson/perl/ch-02.pl
new file mode 100644
index 0000000000..621eadad48
--- /dev/null
+++ b/challenge-047/steven-wilson/perl/ch-02.pl
@@ -0,0 +1,27 @@
+#!/usr/bin/env perl
+# Steven Wilson
+# Challenge 047 Task #2
+# 12 Feb 2020
+
+# 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.
+
+use strict;
+use warnings;
+use feature qw/ say /;
+
+my @gapful_numbers;
+my $current_number = 100;
+
+while ( scalar @gapful_numbers < 20 ) {
+    my $divisor = ( substr $current_number, 0, 1 )
+        . ( substr $current_number, -1, 1 );
+    if ( $current_number % $divisor == 0 ) {
+        push @gapful_numbers, $current_number;
+    }
+    $current_number++;
+}
+
+say join ' ', @gapful_numbers;