Select Code to Download

#!perl
use Math::BigFloat;
...
             (new Math::BigFloat("10")**(new Math::BigFloat("17")))));
# Properly prints "0"
# (well, something like 7e-17 would be closer, but I'll accept 0)

#!perl
use bignum;
...
       exp(new Math::BigFloat("-7") /
             (new Math::BigFloat("10")**(new Math::BigFloat("17")))));
# Incorrectly prints "1"

@/=map{[/./g]}qw/.h_nJ Xapou cets krht ele_ r_ra/;
map{y/X_/\n /;print}map{pop@$_}@/for@/