- Added solution to Stepping Numbers.

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-052/mohammad-anwar/perl/ch-1.pl b/challenge-052/mohammad-anwar/perl/ch-1.pl
new file mode 100644
index 0000000000..fe0c399a62
--- /dev/null
+++ b/challenge-052/mohammad-anwar/perl/ch-1.pl
@@ -0,0 +1,24 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $start = $ARGV[0] || 100;
+my $stop  = $ARGV[1] || 999;
+
+die "ERROR: Invalid start number [$start]\n"
+    unless ($start >= 100 &&
+            $start <= 999);
+die "ERROR: Invalid stop  number [$stop]\n"
+    unless ($start <= $stop &&
+            $stop  >= 100   &&
+            $stop  <= 999);
+
+while ($start <= $stop) {
+    my ($d1, $d2, $d3) = split //, $start, 3;
+    if ( ((($d1 - $d2) == 1) && (($d2 - $d3) == 1))
+         || ((($d2 - $d1) == 1) && (($d3 - $d2) == 1)) ) {
+        print "$start\n";
+    }
+    $start++;
+}