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

31 lines
606 B
Perl

use 5.38.0;
package Part1;
use List::AllUtils qw/ product /;
use POSIX qw/ floor ceil /;
sub my_zip($a,$b) {
return map { [ $a->[$_], $b->[$_] ] } 0..$a->@*-1;
}
sub parse_file($input) {
my_zip( map { [/(\d+)/g ] } split "\n", $input );
}
sub race_solution($time,$distance) {
my $min = ( $time - sqrt( $time**2 - 4 * $distance) ) / 2;
my $max = ( $time + sqrt( $time**2 - 4 * $distance) ) / 2;
$min = int($min)+1;
$max = ($max == int $max)?$max-1:int $max;
return $max-$min+1;
}
sub solution_1 ($input) {
product map { race_solution(@$_)} parse_file($input);
}
1;