Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl

...

use Test::More tests => 22;
is( doubleToBits( bitsToDouble( $_ ) ) , $_ , "bitsToDouble(doubleToBi
+ts($_))" ) for @list;
  2. or download this
                          0 : 0000000000000000 >=there-and-back-again=> 00
+00000000000000
 4.940656458412465e-324 : 0000000000000001 >=there-and-back-again=> 00
+00000000000001
...
#          got: '11111111111111111111111111111111111111111111111111111
+11111111111'
#     expected: '11111111111101111111111111111111111111111111111111111
+11111111111'
...