summary refs log tree commit diff homepage
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--2021/day01.pl13
1 files changed, 11 insertions, 2 deletions
diff --git a/2021/day01.pl b/2021/day01.pl
index f4ab273..ffc5949 100644
--- a/2021/day01.pl
+++ b/2021/day01.pl
@@ -1,6 +1,15 @@
-my $last, $incs;
+use strict;
+use warnings;
+my ($last, @window, $incs, $incs2);
 while (<>) {
 	$incs++ if ($last && $_ > $last);
 	$last = $_;
+	if (scalar @window == 3) {
+		my $prev = $window[0] + $window[1] + $window[2];
+		my $next = $window[1] + $window[2] + $_;
+		$incs2++ if ($next > $prev);
+		shift @window;
+	}
+	push @window, $_;
 }
-print "$incs\n";
+print "$incs\n$incs2\n";