yanick/adventofcode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

2016-19

Browse Source
This commit is contained in:
Yanick Champoux 2018-02-28 14:58:20 -05:00
parent 3e113b9370
commit a4f4f9ed3b
2 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
2016/19/1.pl
View File

@ -5,7 +5,6 @@ my $input = 3004953;
my @elves = 1..$input; my @elves = 1..$input;
while( @elves > 1 ) { while( @elves > 1 ) {
say $elves[0];
push @elves, shift @elves; push @elves, shift @elves;
shift @elves; shift @elves;
} }

15
2016/19/2.pl Normal file
View File

@ -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;