Select Code to Download

Select or download this

perl -lpe '$b=sprintf("%b",$_); $n=length($b); $_="$b ($n bits)"'
46223868
...
369790944
10110000010101000111111100000 (29 bits)
^C

Select or download this

perl -lne '$d=pack("d",$_);$b=unpack("b*",$d);printf("%s (%d bits)\n",
+$b,length($b))'
518819.748032
...
64852.468503656
0100100010000110110111111011111101110001010101011111011100000010 (64 b
+its)
^C

Select or download this

perl -e '@ins=(518819.748032,64852.468503656);
for (0,1) { push @outs,unpack("b*",pack("d",$ins[$_])) }
...
1000001110011000001111111011111101110001010101011111100010000010
0100100010000110110111111011111101110001010101011111011100000010
1100101100011110111000000000000000000000000000000000111110000000

Select or download this

1000001110011000001111111011111101110001010101011111100010000010
1000001110011000001111111011111101110001010101011111011100000010
0000000000000000000000000000000000000000000000000000111110000000

Select or download this

perl -e '@ins=( 518819.748032, 64852.468504*8 );  # less "precise" ret
+urn value * 8!
for(0,1){ push @outs,unpack("b*",pack("d",$ins[$_])) }
...
1000001110011000001111111011111101110001010101011111100010000010
1000001110011000001111111011111101110001010101011111100010000010
0000000000000000000000000000000000000000000000000000000000000000