#!/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');