Improved Perl solution for week 114, part 1.

1 files changed, 4 insertions, 17 deletions

diff --git a/challenge-114/abigail/perl/ch-1.pl b/challenge-114/abigail/perl/ch-1.pl
index 60fc239e67..0c1a989947 100644
--- a/challenge-114/abigail/perl/ch-1.pl
+++ b/challenge-114/abigail/perl/ch-1.pl
@@ -57,22 +57,9 @@ while (<>) {
     my $part2 = substr $_,    int length ($_) / 2,  length ($_) % 2;
     my $part3 = substr $_,    int length ($_) / 2 + length ($_) % 2;
 
-    if (reverse ($part1) > $part3) {
-        say $part1, $part2, scalar reverse ($part1);
-    }
-    else {
-        if (length $part2) {
-            if ($part2 == 9) {
-                $part1 ++;
-                $part2 = 0;
-            }
-            else {
-                $part2 ++;
-            }
-        }
-        else {
-            $part1 ++;
-        }
-        say $part1, $part2, scalar reverse ($part1);
+    if (reverse ($part1) <= $part3) {
+        $part1 = "$part1$part2" + 1;
+        $part2 = chop $part1 if length $part2;
     }
+    say $part1, $part2, scalar reverse ($part1);
 }