Select Code to Download

   
DB<186> $x1= 1000*(4/25)
 => 160
...
  DB<188> $x1 == $x2
 => 1

  DB<205>  for (254..263) {$x = 1000 * ( $_ + 4/25 ); printf "%.20f\n"
+, $x} 

...
261160.00000000002910383046
262160.00000000000000000000
263160.00000000000000000000

  DB<220>  for (0..20) {$e=2**$_; $x = 1000 * ( $e + 4/25 ); printf "$
+_:$e => %.20f\n", $x if ($x-int($x))} 
5:32 => 32159.99999999999636202119
...
18:262144 => 262144159.99999997019767761230
19:524288 => 524288160.00000005960464477539
20:1048576 => 1048576159.99999988079071044922