adventofcode/2023/06/Part2.pm
2023-12-06 11:07:57 -05:00

18 lines
234 B
Perl

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;