Select Code to Download

sub is_approximately_an_integer {
    foreach my $x ( @zeros ) {
    $x = shift;
...
    return abs( $x-int($x) ) < $eps;
    }
}