18 lines
290 B
Perl
18 lines
290 B
Perl
use 5.38.0;
|
|
|
|
use Test2::V0;
|
|
|
|
use Path::Tiny;
|
|
|
|
use Part1;
|
|
|
|
my $input = path('input')->slurp;
|
|
|
|
is Part1::predict(qw/0 3 6 9 12 15/) => 18;
|
|
is Part1::predict(qw/1 3 6 10 15 21/) => 28;
|
|
is Part1::predict(qw/10 13 16 21 30 45/) => 68;
|
|
|
|
is Part1::solution_1($input) => 1884768153;
|
|
|
|
done_testing;
|