Help for this page

Select Code to Download


  1. or download this
    #!perl
use bignum;
...

printf "%3.5g   %3.5g   %3.5g\n",$e,1-$e,(1-"$e");
  2. or download this
    use bignum;
$e = exp(2 ** (-128));
use Data::Dumper; 
print Dumper($e);
print $e,"\n",1-$e,"\n";
  3. or download this
    @/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/