Select Code to Download

sub double_to_bin {
   my $n = shift;
...

   return $n_bin;
}

$ perl -e'printf "%.751g\n", unpack "d", pack "Q", 1'
4.94065645841246544176568792868221372365059802614324764425585682500675
+507270208751865299836361635992379796564695445717730926656710355939796
+398774796010781878126300713190311404527845817167848982103688718636056
+998730723050006387409153564984387312473397273169615140031715385398074
+126238565591171026658556686768187039560310624931945271591492455329305
+456544401127480129709999541931989409080416563324524757147869014726780
+159355238611550134803526493472019379026810710749170333222684475333572
+083243193609238289345836806010601150616980975307834227731832924790498
+252473077637592724787465608477820373446969953364701797267771758512566
+055119913150489110145103786273816725095583738973359899366480994116420
+5702637090279242767544565229087538682506419718265533447265625e-324