X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?p=aoc2020.git;a=blobdiff_plain;f=43.pl;fp=43.pl;h=3f6ebe679423e2c5d9f2344491f1e505b1468bdb;hp=0000000000000000000000000000000000000000;hb=e6bc74633b91f9a03a137afd30a58198822f820c;hpb=63b534141e63cf51990d5fa2234e1d21f0bc1bbc

diff --git a/43.pl b/43.pl
new file mode 100755
index 0000000..3f6ebe6
--- /dev/null
+++ b/43.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+local $/ = "\n\n";
+
+my @pl1 = <> =~ /^(\d+)$/gxms;
+my @pl2 = <> =~ /^(\d+)$/gxms;
+print "pl2=@pl2.\n";
+
+while (@pl1 && @pl2) {
+	my $p1 = shift @pl1;
+	my $p2 = shift @pl2;
+	print "$p1 vs $p2\n";
+	if ($p1 > $p2) {
+		push @pl1, $p1, $p2;
+	} else {
+		push @pl2, $p2, $p1;
+	}
+}
+
+@pl1 = @pl2 if @pl2;
+my $sum = 0;
+while (@pl1) {
+	$sum += +$pl1[0] * @pl1;
+	shift @pl1;
+}
+print "sum=$sum\n";