16 lines
189 B
Perl
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;
|