sgreen solution to challenge 114

4 files changed, 51 insertions, 2 deletions

diff --git a/challenge-114/sgreen/README.md b/challenge-114/sgreen/README.md
index 4bc164937e..ee234128af 100644
--- a/challenge-114/sgreen/README.md
+++ b/challenge-114/sgreen/README.md
@@ -1,3 +1,3 @@
-# The Weekly Challenge 113
+# The Weekly Challenge 114
 
-Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-113-4g2d)
+Solution by Simon Green. [Blog](https://dev.to/simongreennet/weekly-challenge-114-51h1)
diff --git a/challenge-114/sgreen/blog.txt b/challenge-114/sgreen/blog.txt
new file mode 100644
index 0000000000..3309f07750
--- /dev/null
+++ b/challenge-114/sgreen/blog.txt
@@ -0,0 +1 @@
+https://dev.to/simongreennet/weekly-challenge-114-51h1
diff --git a/challenge-114/sgreen/perl/ch-1.pl b/challenge-114/sgreen/perl/ch-1.pl
new file mode 100755
index 0000000000..200d429ca7
--- /dev/null
+++ b/challenge-114/sgreen/perl/ch-1.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+sub main {
+    my $number = shift;
+
+    # Sanity check
+    die "You must specify a number\n" unless defined $number;
+    die "The number must be a positive integer\n" unless $number =~ /^[1-9][0-9]*$/;
+
+    while ( ++$number ) {
+        if ( $number == reverse $number ) {
+            # We have a Palindromic number
+            say $number;
+            return;
+        }
+    }
+}
+
+main(@ARGV);
diff --git a/challenge-114/sgreen/perl/ch-2.pl b/challenge-114/sgreen/perl/ch-2.pl
new file mode 100755
index 0000000000..06381346e8
--- /dev/null
+++ b/challenge-114/sgreen/perl/ch-2.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+use feature 'say';
+
+sub main {
+    my $number      = shift;
+    my $target_bits = ( sprintf( '%b', $number ) =~ tr/1/1/ );
+
+    # Sanity check
+    die "You must specify a number\n" unless defined $number;
+    die "The number must be a positive integer\n" unless $number =~ /^[1-9][0-9]*$/;
+
+    while ( ++$number ) {
+        my $set_bits = ( sprintf( '%b', $number ) =~ tr/1/1/ );
+        if ( $target_bits == $set_bits ) {
+            # We have the solution
+            say $number;
+            return;
+        }
+    }
+}
+
+main(@ARGV);