From ab73b01cc667f04a538a61b10f7874c955c1de59 Mon Sep 17 00:00:00 2001
From: "Jan \"Yenya\" Kasprzak" <kas@fi.muni.cz>
Date: Mon, 6 Dec 2021 06:08:08 +0100
Subject: [PATCH] Day 6: simple and fast
---
11.pl | 25 +++++++++++++++++++++++++
12.pl | 25 +++++++++++++++++++++++++
2 files changed, 50 insertions(+)
create mode 100755 11.pl
create mode 100755 12.pl
diff --git a/11.pl b/11.pl
new file mode 100755
index 0000000..18e31c7
--- /dev/null
+++ b/11.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my @timers;
+
+for (split /,/, <>) {
+ $timers[$_]++;
+}
+
+my $days = 80;
+
+while ($days--) {
+ my $zero = shift @timers;
+ $timers[6]+=$zero;
+ $timers[8]+=$zero;
+}
+
+my $sum = 0;
+$sum += $_ for @timers;
+
+say $sum;
+
+
+
diff --git a/12.pl b/12.pl
new file mode 100755
index 0000000..990aac6
--- /dev/null
+++ b/12.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl -w
+
+use v5.16;
+
+my @timers;
+
+for (split /,/, <>) {
+ $timers[$_]++;
+}
+
+my $days = 256;
+
+while ($days--) {
+ my $zero = shift @timers;
+ $timers[6]+=$zero;
+ $timers[8]+=$zero;
+}
+
+my $sum = 0;
+$sum += $_ for @timers;
+
+say $sum;
+
+
+
--
2.43.5