18 lines
282 B
Perl
18 lines
282 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Path::Tiny;
|
|
|
|
use Part2;
|
|
|
|
my $input = path('input')->slurp;
|
|
my $example = path('example')->slurp;
|
|
|
|
is Part2::solution_2($example) => 5905;
|
|
|
|
cmp_ok Part2::solution_2($input), '<' => 250843163;
|
|
is Part2::solution_2($input) => 250506580;
|
|
|
|
done_testing;
|