adventofcode/2023/06/Part2.pm

use 5.38.0;

package Part2;

use Part1;

use List::AllUtils qw/ product /;

sub parse_file($input) {
    map {  join '', /(\d+)/g  } split "\n", $input;
}

sub solution_2 ($input) {
    Part1::race_solution(parse_file($input));
}

1;