9 my @elves = (1 .. $in);
12 my $steal = $now + int(@elves/2);
13 $steal -= @elves if $steal > $#elves;
14 say "now $now, steal $steal, total ", scalar @elves, ": ", join(' ', @elves);
15 splice(@elves, $steal, 1);
16 $now++ if $steal > $now;
17 $now = 0 if $now > $#elves;