Day 09: shortening the code

diff --git a/2023/17.pl b/2023/17.pl
index ab77a834b3609b89f9713f17063767d56621060e..7a9c2ae7dcb8e63472754b7737c9834b2242b418 100755 (executable)
--- a/2023/17.pl
+++ b/2023/17.pl
@@ -1,19 +1,14 @@
 #!/usr/bin/perl -w
 
 use v5.38;
-use List::Util qw(sum);
 
 my $sum;
 while (<>) {
        my @seq = /-?\d+/g;
-       my @rest;
        while (grep $_, @seq) {
-               for my $i (0 .. $#seq-1) {
-                       $seq[$i] = $seq[$i+1]-$seq[$i];
-               }
-               push @rest, pop @seq;
+               $seq[$_] = $seq[$_+1]-$seq[$_] for 0 .. $#seq-1;
+               $sum += pop @seq;
        }
-       $sum += sum @rest;
 }
 
 say $sum;

diff --git a/2023/18.pl b/2023/18.pl
index 1ea75534d67e350795caff93b03a51897714a5ed..43be85e53e58467c8948857210ba38313fa53991 100755 (executable)
--- a/2023/18.pl
+++ b/2023/18.pl
@@ -1,19 +1,14 @@
 #!/usr/bin/perl -w
 
 use v5.38;
-use List::Util qw(sum);
 
 my $sum;
 while (<>) {
        my @seq = reverse /-?\d+/g;
-       my @rest;
        while (grep $_, @seq) {
-               for my $i (0 .. $#seq-1) {
-                       $seq[$i] = $seq[$i+1]-$seq[$i];
-               }
-               push @rest, pop @seq;
+               $seq[$_] = $seq[$_+1]-$seq[$_] for 0 .. $#seq-1;
+               $sum += pop @seq;
        }
-       $sum += sum @rest;
 }
 
 say $sum;