From eecc1b2e975ad2efc811a0cf640e580a031d53a9 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Tue, 15 Dec 2020 07:48:31 +0100
Subject: [PATCH] Day 15 - what was that?

---
 29.pl | 28 ++++++++++++++++++++++++++++
 30.pl | 29 +++++++++++++++++++++++++++++
 2 files changed, 57 insertions(+)
 create mode 100755 29.pl
 create mode 100755 30.pl

diff --git a/29.pl b/29.pl
new file mode 100755
index 0000000..e99bf39
--- /dev/null
+++ b/29.pl
@@ -0,0 +1,28 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my @start = map { chomp; $_ } split /,/, <>;
+
+my $turn = 0;
+my %nums;
+my $num;
+
+while ($turn < 2020) {
+	$turn++;
+	if (@start) {
+		$num = shift @start;
+	}
+	my $next;
+	if (defined $nums{$num}) {
+		$next = $turn - $nums{$num};
+	} else {
+		$next = 0;
+	}
+	$nums{$num} = $turn;
+	print "turn $turn, num=$num\n";
+	$num = $next;
+}
+
+
+
diff --git a/30.pl b/30.pl
new file mode 100755
index 0000000..838171d
--- /dev/null
+++ b/30.pl
@@ -0,0 +1,29 @@
+#!/usr/bin/perl -w
+
+use strict;
+
+my @start = map { chomp; $_ } split /,/, <>;
+
+my $turn = 0;
+my %nums;
+my $num;
+
+while ($turn < 30000000) {
+	$turn++;
+	if (@start) {
+		$num = shift @start;
+	}
+	my $next;
+	if (defined $nums{$num}) {
+		$next = $turn - $nums{$num};
+	} else {
+		$next = 0;
+	}
+	$nums{$num} = $turn;
+	print "turn $turn, num=$num\n"
+		if $turn % 1_000_000 == 0;
+	$num = $next;
+}
+
+
+
-- 
2.43.5