adventofcode/2016/19/2.pl
Yanick Champoux a4f4f9ed3b 2016-19
2018-02-28 14:58:20 -05:00

16 lines
205 B
Perl

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;