🚀 go-pugleaf

In article <1452@tmcaen1.kouku-k.ac.jp> suzuki@info2.kouku-k.ac.jp (Hiroshi Suzuki) writes:
 >double $@7?$N2>?tIt(J($@M-8z?t;z(J)$@$K$D$$$F65$($F2<$5$$!#(J
 >$@0J2<$N$h$&$J%W%m%0%i%`$r<B9T$9$k$H#2$N(J1023$@>h$^$G!"@53N$K(J$@7W;;$5$l$^$9!#(J
 >double$@$N%5%$%:$O(J8byte$@$J$N$K$I$&$7$F$3$s$J$K$bB?$/$N7e?t$,7W;;$5$l$k$N$G$7$g$&!)(J

$@$3$N(J$@<B83$G$O(J

1)double$@$O@53N$K7e?t7W;;$r$7$F$$$k$,(J printf()$@$O@53N$KI=<($7$F$$$J$$(J
2)double$@$,@53N$K7W;;$7$F(J$@$$$J$$!#(J

$@$N$I$A$i$+$o$+$i$J$$!"$H$$$&$3$H$rM=$a$*CG$j$7$?>e$G!D(J

double $@$O4JC1$K$$$&$H(J
	$@!^(J f * 2^t
	$@$?$@$7!"(J f = 0 or 1.0 <= f < 2.0 $@$N8GDj>.?tE@I=8=(J 52bits
		 t = 0 to 0x7ff 11bits
		 $@!^(J= 0 or 1 1bits
$@$H$$$&I=8=$r;H$C$F$$$^$9!#:#2s$N<B83$O$?$^$?$^(J
x = x * 2.0$@$@$C$?$?$a!"<B:]$K$O(J

	t++

$@$r$d$C$F$$$k$N(J$@$HF1$8$3$H$@$C$?$N$G$9!#$@$+$i!"@53N$K7W;;$G$-$?$N$G$9!#(J
$@;n$7$K(J x = x * 9.0 $@$G$d$C$F$_$F2<$5$$!#$"$C$H(J$@$$$&4V$K$*$+$7$/$J$j$^(J
$@$9$+$i!#(J


--
$@$"$J$?C#$,%^%7%s%k!<%`$+$i=P$F$-$?$i!"!V%*%+%(%j%J%5%$!W$C$F$`$+(J$@$($F$"$2$k$+$i$M!#(J
                  $@1|;3(J $@7r0l!wEl5~4pAC8&5f=j(J.$@F|K\#I#B#M!J3t!K(J