X-Git-Url: https://www.fi.muni.cz/~kas/git//home/kas/public_html/git/?a=blobdiff_plain;f=41.pl;fp=41.pl;h=ac2e4e082444e7b7261eb5c67d508779f60e55df;hb=63e56c0098eaac6b730f32a9c67ef30c52855c6f;hp=0000000000000000000000000000000000000000;hpb=ccdd559ae858fd11c6f5adc2b33e738fab2fefef;p=aoc2021.git

diff --git a/41.pl b/41.pl
new file mode 100755
index 0000000..ac2e4e0
--- /dev/null
+++ b/41.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my (@p) = @ARGV;
+my @s = (0, 0);
+my $d = 1;
+my $dc = 0;
+
+sub roll() {
+	$dc++;
+	my $rv = $d++;
+	$d = 1 if $d > 100;
+	return $rv;
+}
+
+while (1) {
+	for (0 .. 1) {
+		$p[$_] += roll()+roll()+roll();
+		$p[$_] -= 10 while $p[$_] > 10;
+		$s[$_] += $p[$_];
+		# say "$dc: $d, $_, $p[$_]";
+		if ($s[$_] >= 1000) {	
+			say $s[1-$_]*$dc;
+			exit 0;
+		}
+	}
+}