🚀 go-pugleaf

$B?9K\!w%U%j!<%@%`$G$9(B

Perl5 $B$KImB0$N(B Math::BigFloat.pm $B$N(B fcmp $B$*$h$S(B <=> $B$r(B
$B;HMQ$7$h$&$H$7$?$N$G$9$,!"$I$&$bF0$-$,JQ$J$N$G$9!#(B

$a = new Math::BigFloat("20");
$b = new Math::BigFloat("21");
$a->fcmp($b);
$a <=> $b

fcmp $B$N>l9g$O(B $B4X?tFbIt$G(B $B3F0z?t$r(B
    2E+1 21E+0
$B$KJQ49$7$FHf3S$r$7$h$&$H$7$F$$$k$N$G$9$,(B
$B@h$K;X?tIt$rHf3S$7$F$$$k$?$a(B 2E+1 $B$NJ}$,(B $B!HBg!I$HH=CG$5$l$F(B
$B$7$^$7$^$9!#(B
    2E+1 2.1E+1
$B$HJQ49$5$l$F$$$k$J$i$P!";X?tIt$NHf3S$G#O#K$@$H;W$&$N$G$9$,(B...

<=> $B$r;HMQ$7$?>l9g$O(B $a $B$N@0?tIt(B(?)$B$NCM$,JV$C$FMh$F$7$^$$$^$9!#(B
BigFloat.pm $B$G(B
'<=>'	=>	sub {new Math::BigFloat
		       $_[2]? fcmp($_[1],${$_[0]}) : fcmp(${$_[0]},$_[1])},
$B$HDj5A$5$l$F$*$j(B fcmp() $B$HF1$8CM$,JV$C$F$-$=$&$J$b$N$G$9$,!"(B
$B@0?tIt$,JV$C$F$-$F$7$^$$$^$9!#(B

new Math::BigFloat(Math::BigFloat::fcmp($a, $b));
    $B$^$?$O(B
new Math::BigFloat($a->fcmp($b));

$B$H$9$l$P(B $BF1MM$K@0?tIt$,JV$C$F$-$F$7$^$$$^$9!#(B

$B$I$J$?$+(B $B$3$NLdBj$r2r7h$5$l$?$+$?$O$*$i$l$k$G$7$g$&$+!)(B
--
($BM-(B)$B%U%j!<%@%`(B              $B$W$m$0$i$^$!(B              $B?9K\LP<y(B
mori@freedom.co.jp    Shigeki@morimo.to