2023/17.pl

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