From 4eaa410b226684b5ff5430fc4cef481f7083a36b Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" Date: Sat, 9 Dec 2023 10:12:39 +0100 Subject: [PATCH] Day 09: use reverse() for Part 2. D'oh! --- 2023/18.pl | 12 ++++-------- 1 file changed, 4 insertions(+), 8 deletions(-) diff --git a/2023/18.pl b/2023/18.pl index f41b7b1..1ea7553 100755 --- a/2023/18.pl +++ b/2023/18.pl @@ -1,23 +1,19 @@ #!/usr/bin/perl -w use v5.38; +use List::Util qw(sum); my $sum; while (<>) { - my @seq = /-?\d+/g; + my @seq = reverse /-?\d+/g; my @rest; while (grep $_, @seq) { - push @rest, $seq[0]; for my $i (0 .. $#seq-1) { $seq[$i] = $seq[$i+1]-$seq[$i]; } - pop @seq; + push @rest, pop @seq; } - my $s = 0; - for (reverse @rest) { - $s = $_ - $s; - } - $sum += $s; + $sum += sum @rest; } say $sum; -- 2.43.0