X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=18.pl;fp=18.pl;h=3801b4ed7734e7f8059dd3f96cebf80d7e439ba3;hb=a3b0fa8b4631ecc584d9b2c52495260b3849749b;hp=0000000000000000000000000000000000000000;hpb=2a6c3f5d9d37c8a6e7ef96455120d5543470716c;p=aoc2020.git

diff --git a/18.pl b/18.pl
new file mode 100755
index 0000000..3801b4e
--- /dev/null
+++ b/18.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my @prev;
+
+my $target = 375054920;
+
+my $sum = 0;
+while (my $num = <>) {
+	chomp $num;
+
+	$sum += $num;
+	push @prev, $num;
+	
+	print "Adding $num, sum=$sum\n";
+
+	while ($sum > $target) {
+		my $n1 = shift @prev;
+		$sum -= $n1;
+		print "Removing $n1, sum=$sum\n";
+	}
+
+	if ($sum == $target) {
+		print "found $sum = ", join('+', @prev), "\n";
+		my ($min, $max);
+		for my $n1 (@prev) {
+			$min = $n1 if !defined $min || $min > $n1;
+			$max = $n1 if !defined $max || $max < $n1;
+		}
+		print "$min+$max=", $min+$max, "\n";
+		last;
+	}
+}
+