The rest of Year 2016

[aoc.git] / 2016 / 37.pl

diff --git a/2016/37.pl b/2016/37.pl
new file mode 100755 (executable)
index 0000000..070136f
--- /dev/null
+++ b/2016/37.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use strict;
+use v5.30;
+
+# my $in = 3004953;
+my $in = shift;
+
+my @elves = (1 .. $in);
+my $now = 0;
+while (@elves > 1) {
+       @elves = grep { $now = !$now } @elves;
+       say join(' ', @elves);
+}
+say $elves[0];