Line circle intersection: Difference between revisions

my $D = $b**2 - (4*$a*$c);

my ($t1, $t2) = ( (-$b - sqrt( $D)) / (2*$a), (-$b + sqrt( $D)) / (2*$a) );

return unless ( $t1 >= 0 and $t1 <= 1 ) or ( $t2 >= 0 and $t2 <= 1 );

sub rnd { map { (sprintf('%.2f', $_)) =~ s/\.00//r } @_ }

my @solution = find_intersection( @$d[0] , @$d[1] , @$d[2], @$d[3]);

say 'For input: ' . join( ', ', (map { '('. join(',', @$_) .')' } @$d[0,1,2]), @$d[3]);

say 'Solutions: ' . (@solution > 1 ? join ', ', map { '('. join(',', rnd( @$_)) .')' } @solution : "'None"');