19 lines
344 B
Perl
19 lines
344 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Path::Tiny;
|
|
|
|
use Part1;
|
|
|
|
|
|
is Part1::parse_line("Game 1: 3 blue, 4 red; 1 red, 2 green, 6 blue; 2 green") => +{ game => 1, entries => [
|
|
{ blue => 3, red => 4 }, { red => 1, green => 2, blue => 6},
|
|
{ green => 2 },
|
|
]};
|
|
|
|
|
|
my $input = path('input')->slurp;
|
|
|
|
is Part1::solution_1($input) => 'TODO';
|