Select Code to Download

>perl -le"$,=' '; $x=.1; print map /(.)(.{11})(.*)/, unpack 'B*', reve
+rse pack 'd', $x/=2 for 1..5;"
0 01111111010 1001100110011001100110011001100110011001100110011010
...
0 01111110110 1001100110011001100110011001100110011001100110011010
- ----------- ----------------------------------------------------
S Exponent    Mantissa

my $n; $n += 0.1 for 1..10;          # $n = 0.1 * 10 = 1  ...ish
my $r = int($n*2)/2;
...
print("round($n) = $r\n");           # round(1) = 0.5
print("cause it's really doing\n");  # cause it's really doing
printf("round(%.16e)\n", $n);        # round(9.9999999999999989e-001)