From a4f4f9ed3bca9bb714fbf9a1be4032dd4137b518 Mon Sep 17 00:00:00 2001
From: Yanick Champoux <yanick@babyl.dyndns.org>
Date: Wed, 28 Feb 2018 14:58:20 -0500
Subject: [PATCH] 2016-19

---
 2016/19/1.pl |  1 -
 2016/19/2.pl | 15 +++++++++++++++
 2 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 2016/19/2.pl

diff --git a/2016/19/1.pl b/2016/19/1.pl
index d30208f..520a47e 100644
--- a/2016/19/1.pl
+++ b/2016/19/1.pl
@@ -5,7 +5,6 @@ my $input = 3004953;
 my @elves = 1..$input;
 
 while( @elves > 1 ) {
-    say $elves[0];
     push @elves, shift @elves;
     shift @elves;
 }
diff --git a/2016/19/2.pl b/2016/19/2.pl
new file mode 100644
index 0000000..3a4f2d0
--- /dev/null
+++ b/2016/19/2.pl
@@ -0,0 +1,15 @@
+use 5.20.0;
+
+my $input = 3004953;
+
+my @elves = 1..$input;
+
+my $j;
+
+while( @elves > 1 ) {
+    say $elves[0] unless $j++ % 1000;
+    splice @elves, @elves/2, 1;
+    push @elves, shift @elves;
+}
+
+say @elves;