Select Code to Download

my $ret = 1;

...
      ( $ret-$d != $ret )?1:0,
   );
}

1e-015 1 1   # Often equivalent.
1e-020 1 0   # But not when there's an underflow.