adventofcode/2023/02/benchmark.pl

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;
}