42 lines
784 B
Perl
42 lines
784 B
Perl
|
use 5.20.0;
|
||
|
|
use warnings;
|
||
|
|
use experimental qw/
|
||
|
|
signatures
|
||
|
|
postderef
|
||
|
|
/;
|
||
|
|
|
||
|
|
my @marbles;
|
||
|
|
my $next_marble = 0;
|
||
|
|
|
||
|
|
my $nbr_elves = 419;
|
||
|
|
my $current_elf = 0;
|
||
|
|
my $last_marble = 72164 * 100;
|
||
|
|
|
||
|
|
my %score;
|
||
|
|
|
||
|
|
while() {
|
||
|
|
warn $next_marble if 0 == $next_marble % 10_000;
|
||
|
|
|
||
|
|
last if $next_marble > $last_marble;
|
||
|
|
|
||
|
|
if( $next_marble > 0 and 0 == $next_marble % 23 ) {
|
||
|
|
unshift @marbles, splice @marbles, -6, 6;
|
||
|
|
my $score = $next_marble + pop @marbles;
|
||
|
|
$current_elf %= $nbr_elves;
|
||
|
|
$score{$current_elf} += $score;
|
||
|
|
}
|
||
|
|
else {
|
||
|
|
push @marbles, splice @marbles, 0, 2;
|
||
|
|
unshift @marbles, $next_marble;
|
||
|
|
}
|
||
|
|
|
||
|
|
$next_marble++;
|
||
|
|
$current_elf++;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
use List::UtilsBy qw/ max_by /;
|
||
|
|
use List::AllUtils qw/ pairs max /;
|
||
|
|
|
||
|
|
say max values %score;
|