Working solution

2018-02-28 12:24:00 -05:00 · 2018-02-28 12:24:00 -05:00 · 3e113b9370
parent 6836f6e229
commit 3e113b9370
1 changed files with 13 additions and 0 deletions
--- a/2016/19/1.pl
+++ b/2016/19/1.pl
@ -0,0 +1,13 @@
+use 5.20.0;
+
+my $input = 3004953;
+
+my @elves = 1..$input;
+
+while( @elves > 1 ) {
+    say $elves[0];
+    push @elves, shift @elves;
+    shift @elves;
+}
+
+say @elves;