From ab73b01cc667f04a538a61b10f7874c955c1de59 Mon Sep 17 00:00:00 2001 From: "Jan \"Yenya\" Kasprzak" 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.0