25 lines
407 B
Perl
25 lines
407 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Path::Tiny;
|
|
|
|
use Part2;
|
|
|
|
my $input = path('input')->slurp;
|
|
|
|
is Part2::predict(qw/0 3 6 9 12 15/) => -3;
|
|
is Part2::predict(qw/1 3 6 10 15 21/) => 0;
|
|
is Part2::predict(qw/10 13 16 21 30 45/) => 5;
|
|
|
|
is Part2::solution_2(<<END) => 2;
|
|
0 3 6 9 12 15
|
|
1 3 6 10 15 21
|
|
10 13 16 21 30 45
|
|
END
|
|
|
|
isnt Part2::solution_2($input) => -59;
|
|
is Part2::solution_2($input) => 1031;
|
|
|
|
done_testing;
|