Select Code to Download

use Math::BigFloat;

my $one_minus_one = Math::BigInt->new(1) - Math::BigFloat->new(.9999);
print "$one_minus_one\n";

#!perl
use bignum;
...

printf("%3.20g\n", $e);
print "$e ", 1-$e, "\n";