diff options
| author | Abigail <abigail@abigail.be> | 2021-05-25 03:03:10 +0200 |
|---|---|---|
| committer | Abigail <abigail@abigail.be> | 2021-05-25 03:03:10 +0200 |
| commit | f07ec8a27e066ed44bc7404b31f6bd0716d10fd9 (patch) | |
| tree | 45a5ec62a6de92e2851406465c6b9229ed870e3d /challenge-114/abigail | |
| parent | fb914cb07a7edfeee7143ffc57cb86fa4ef63539 (diff) | |
| download | perlweeklychallenge-club-f07ec8a27e066ed44bc7404b31f6bd0716d10fd9.tar.gz perlweeklychallenge-club-f07ec8a27e066ed44bc7404b31f6bd0716d10fd9.tar.bz2 perlweeklychallenge-club-f07ec8a27e066ed44bc7404b31f6bd0716d10fd9.zip | |
Improved Perl solution for week 114, part 1.
Diffstat (limited to 'challenge-114/abigail')
| -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); } |