Help for this page

Select Code to Download


  1. or download this
    $ perl -e'
   use feature qw( say );
...
  NV = 1
  PV = 0
  2. or download this
    $ perl -le'for(0x1p+60, 0x1p+60, 0x1p+60) { print $_ + 1 }'
1.15292150460685e+18
...
1.15292150460685e+18
1.15292150460685e+18
1.15292150460685e+18