6 my ($players, $last) = @ARGV;
14 my $player = $_ % $players;
16 $score{$player} += $_;
17 $cur = $prev{$cur} for 1 .. 7;
18 $score{$player} += $cur;
19 $next{$prev{$cur}} = $next{$cur};
20 $prev{$next{$cur}} = $prev{$cur};
31 say $_ if $_ % 100000 == 0;
32 # say join(' ', $cur, @l);
35 use List::Util qw(max);
36 say max values %score;