17 lines
303 B
Perl
Executable File
17 lines
303 B
Perl
Executable File
#!/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');
|