18 lines
234 B
Perl
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;
|