16 lines
237 B
Perl
16 lines
237 B
Perl
|
use lib qw/ . /;
|
||
|
|
|
||
|
|
use Part1;
|
||
|
|
use Part2;
|
||
|
|
|
||
|
|
use Test2::V0;
|
||
|
|
use Path::Tiny;
|
||
|
|
|
||
|
|
my @lists = Day1::Part1::read_file( path('input')->lines );
|
||
|
|
|
||
|
|
is Day1::Part1::solve(@lists) => 1889772;
|
||
|
|
|
||
|
|
is Day1::Part2::solve(@lists) => 23228917;
|
||
|
|
|
||
|
|
done_testing();
|