2023/18.pl

   1 #!/usr/bin/perl -w
   2
   3 use v5.38;
   4 use List::Util qw(sum);
   5
   6 my $sum;
   7 while (<>) {
   8         my @seq = reverse /-?\d+/g;
   9         my @rest;
  10         while (grep $_, @seq) {
  11                 for my $i (0 .. $#seq-1) {
  12                         $seq[$i] = $seq[$i+1]-$seq[$i];
  13                 }
  14                 push @rest, pop @seq;
  15         }
  16         $sum += sum @rest;
  17 }
  18
  19 say $sum;
  20