46 lines
1003 B
Perl
46 lines
1003 B
Perl
|
use 5.38.0;
|
||
|
|
|
||
|
|
use Benchmark ':hireswallclock';
|
||
|
|
use Path::Tiny;
|
||
|
|
use JSON qw/ to_json /;
|
||
|
|
use DateTime;
|
||
|
|
use File::Serialize;
|
||
|
|
|
||
|
|
use Part1;
|
||
|
|
use Part2;
|
||
|
|
|
||
|
|
my $solutions = deserialize_file('solutions.yml');
|
||
|
|
|
||
|
|
my $day = path('.')->absolute->basename =~ s/^0//r;
|
||
|
|
my $year = path('.')->absolute->parent->basename;
|
||
|
|
|
||
|
|
my @parts = (
|
||
|
|
{ part => 1, sub => \&Part1::solution_1, expected => $solutions->{1} },
|
||
|
|
{ part => 2, sub => \&Part2::solution_2, expected => $solutions->{2} },
|
||
|
|
);
|
||
|
|
|
||
|
|
my $input = path('./input')->slurp;
|
||
|
|
|
||
|
|
for my $part (@parts) {
|
||
|
|
my $res = Benchmark::countit(
|
||
|
|
10,
|
||
|
|
sub {
|
||
|
|
$part->{sub}->($input) == $part->{expected} or die;
|
||
|
|
}
|
||
|
|
);
|
||
|
|
|
||
|
|
my $result = {
|
||
|
|
day => $day,
|
||
|
|
year => $year,
|
||
|
|
|
||
|
|
# variant => 'v2',
|
||
|
|
language => 'perl',
|
||
|
|
part => $part->{part},
|
||
|
|
time => $res->cpu_a / $res->iters,
|
||
|
|
parsec =>$res->iters/$res->cpu_a ,
|
||
|
|
timestamp => DateTime->now->iso8601,
|
||
|
|
};
|
||
|
|
say to_json $result;
|
||
|
|
}
|
||
|
|
|