adventofcode/17/1.pl

15 lines
142 B
Perl
Raw Normal View History

2017-12-17 16:39:52 +00:00
use 5.20.0;
my $i = 380;
my @v = (0);
my $p = 0;
use DDP;
for(1..2017) {
$p = ( 1 + $p + $i ) % @v;
splice @v, $p, 0, $_;
}
p @v;