Select Code to Download

Select or download this

$ perl
printf "%5s %.13a\n      %s\n", $_, eval($_), unpack("B*",pack("F>",ev
+al $_)) for qw(1 -1 2 -2 1/3 -1/3)
...
      0011111111010101010101010101010101010101010101010101010101010101
 -1/3 -0x1.5555555555555p-2
      1011111111010101010101010101010101010101010101010101010101010101

Select or download this

  Platform:
    osname=linux
...
    archname=x86_64-linux-gnu-thread-multi
  Compiler:
    cc='x86_64-linux-gnu-gcc'