adventofcode/2016/19/1.pl

13 lines
145 B
Perl
Raw Normal View History

2018-02-28 17:24:00 +00:00
use 5.20.0;
my $input = 3004953;
my @elves = 1..$input;
while( @elves > 1 ) {
push @elves, shift @elves;
shift @elves;
}
say @elves;