21 lines
544 B
Perl
21 lines
544 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Path::Tiny;
|
|
|
|
use Part2;
|
|
|
|
is Part2::solution_2( <<'END' ) => 2286;
|
|
Game 1: 3 blue, 4 red; 1 red, 2 green, 6 blue; 2 green
|
|
Game 2: 1 blue, 2 green; 3 green, 4 blue, 1 red; 1 green, 1 blue
|
|
Game 3: 8 green, 6 blue, 20 red; 5 blue, 4 red, 13 green; 5 green, 1 red
|
|
Game 4: 1 green, 3 red, 6 blue; 3 green, 6 red; 3 green, 15 blue, 14 red
|
|
Game 5: 6 red, 1 blue, 3 green; 2 blue, 1 red, 2 green
|
|
END
|
|
|
|
my $input = path('input')->slurp;
|
|
|
|
cmp_ok Part2::solution_2($input), ">", 1720;
|
|
is Part2::solution_2($input) => 72706;
|