diff options
| -rw-r--r-- | challenge-114/abigail/perl/ch-1.pl | 21 |
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); } |