23 lines
465 B
Perl
23 lines
465 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 $sample = -f 'sample' && Part1::read_input( path('sample') );
|
||
|
|
my $input= -f 'input' && Part1::read_input( path('input') );
|
||
|
|
|
||
|
|
my $res;
|
||
|
|
$res = timeit(0, sub { Part1::solve($input) });
|
||
|
|
say "part 1: ", $res->cpu_a/$res->iters;
|
||
|
|
$res = timeit(0, sub { Part2::solve($input) });
|
||
|
|
say "part 2: ", $res->cpu_a/$res->iters;
|