36 lines
632 B
Perl
36 lines
632 B
Perl
|
package part2;
|
||
|
|
|
||
|
|
use 5.20.0;
|
||
|
|
use warnings;
|
||
|
|
use experimental 'signatures';
|
||
|
|
|
||
|
|
use List::AllUtils qw/ /;
|
||
|
|
|
||
|
|
require './part1.pm';
|
||
|
|
|
||
|
|
use experimental qw/ signatures postderef /;
|
||
|
|
use DDP;
|
||
|
|
|
||
|
|
sub solution($balls, $cards) {
|
||
|
|
my $number = shift @$balls;
|
||
|
|
|
||
|
|
for my $index ( reverse 0..$cards->$#* ) {
|
||
|
|
my $card = $cards->[$index];
|
||
|
|
|
||
|
|
for my $row ( @$card ) {
|
||
|
|
$row = [ map { $_ == $number ? -1 : $_ } @$row ];
|
||
|
|
}
|
||
|
|
|
||
|
|
my $score = part1::victory($number,$card) or next;
|
||
|
|
|
||
|
|
return $score if @$cards == 1;
|
||
|
|
|
||
|
|
splice @$cards, $index, 1;
|
||
|
|
}
|
||
|
|
|
||
|
|
@_ = ( $balls, $cards );
|
||
|
|
goto &solution;
|
||
|
|
}
|
||
|
|
|
||
|
|
1;
|