AoC 2017 begins

[aoc.git] / 2017 / 09.pl

diff --git a/2017/09.pl b/2017/09.pl
new file mode 100755 (executable)
index 0000000..1fc2ca4
--- /dev/null
+++ b/2017/09.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use v5.30;
+use strict;
+
+
+my $pc = 0;
+chomp (my @offs = <>);
+
+my $steps = 0;
+while ($pc >= 0 && $pc < @offs) {
+       say "$steps $pc $offs[$pc]";
+       $pc += $offs[$pc]++;
+       $steps++;
+}
+
+say $steps;