The rest of Year 2017

[aoc.git] / 2017 / 33.pl

diff --git a/2017/33.pl b/2017/33.pl
new file mode 100755 (executable)
index 0000000..e0ec27a
--- /dev/null
+++ b/2017/33.pl
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+
+use v5.30;
+use strict;
+
+my $in = 345;
+
+my @buffer = (0);
+my $pos = 0;
+for (1 .. 2017) {
+       # say "$_ $pos ", join(',', @buffer);
+       $pos += $in;
+       if (@buffer > 1) {
+               $pos %= scalar @buffer;
+       } else {
+               $pos = 0;
+       }
+       $pos++;
+       splice @buffer, $pos, 0, $_;
+}
+
+say $buffer[$pos+1];
+