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;

    warn "$min - $max";
    return $max-$min+1;
}

sub solution_1 ($input) {
    product map { race_solution(@$_)} parse_file($input);
}

1;