part2

2018/09/sol2.pl

@@ -0,0 +1,41 @@
+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;