Select Code to Download

#!perl
use 5.012; # strict, //
...


done_testing;

ok 1 - machine epsilon is same as ULP(1)
# eps              =>  2.22044604925031308e-16
...
# mismatch ends loop at 70
# 
1..7