adventofcode/2017/17/1.pl
2017-12-28 12:15:15 -05:00

16 lines
189 B
Perl

use 5.20.0;
my $i = 380;
my @v = (0);
my $p = 0;
use DDP;
for(1..2017) {
$p = ( 1 + $p + $i ) % @v;
if($p) { splice @v, $p, 0, $_; }
else { push @v, $_; $p = $#v };
}
p @v;