adventofcode/2016/19/2.pl

16 lines
205 B
Perl
Raw Normal View History

2018-02-28 19:58:20 +00:00
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;