17 lines
303 B
Perl
17 lines
303 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
use 5.36.0;
|
||
|
|
|
||
|
|
use Benchmark qw/ timethis timeit /;
|
||
|
|
|
||
|
|
use lib qw~ . ~;
|
||
|
|
|
||
|
|
use Part1;
|
||
|
|
use Part2;
|
||
|
|
|
||
|
|
use Path::Tiny;
|
||
|
|
use File::Serialize;
|
||
|
|
my $res;
|
||
|
|
$res = timethis(0, sub { Part1->new(file=>'input')->solve }, 'part 1');
|
||
|
|
$res = timethis(0, sub { Part2->new(file=>'input')->solve }, 'part 2');
|