Thread View: fj.lang.perl
8 messages
8 total messages
Started by Shigeki Morimoto
Thu, 12 Mar 1998 00:00
Math::BigFloat::fcmp
Author: Shigeki Morimoto
Date: Thu, 12 Mar 1998 00:00
Date: Thu, 12 Mar 1998 00:00
36 lines
1626 bytes
1626 bytes
$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
Re: Math::BigFloat::fcmp
Author: Inaba Hiroto
Date: Sun, 15 Mar 1998 00:00
Date: Sun, 15 Mar 1998 00:00
28 lines
1263 bytes
1263 bytes
In article <MORI.98Mar12191035@picola.freedom.co.jp> Shigeki Morimoto <Shigeki@Morimo.to> writes:
> 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
$B$O$$!"%P%0$C$F$$$k$h$&$G$9$M!#(B
$B$H$j$"$($:0J2<$N$h$&$K=$@5$7$F$_$^$7$?!#$"$s$^$j%A%'%C%/$7$F$^$;$s$,!#(B
sub fcmp { #(fnum_str, fnum_str) return cond_code
local($x, $y) = (fnorm($_[$[]),fnorm($_[$[+1]));
if ($x eq "NaN" || $y eq "NaN") {
undef;
} else {
ord($y) <=> ord($x)
||
do {
my ($xm, $xe, $ym, $ye) = split('E', $x.'E'.$y);
my $e = $xe < $ye ? $xe : $ye;
($xe + length($xm) <=> $ye + length($ym)) * ($xm <=> 0)
||
Math::BigInt::cmp($xm."0"x($xe-$e), $ym."0"x($ye-$e));
};
}
}
--
$B0pMU(B $B9@?M(B (inaba@st.rim.or.jp)
Re: Math::BigFloat::fcmp
Author: Shigeki Morimoto
Date: Thu, 19 Mar 1998 00:00
Date: Thu, 19 Mar 1998 00:00
32 lines
1863 bytes
1863 bytes
$B?9K\!w%U%j!<%@%`$G$9(B >>>>> In article <1zw5z0aa.fsf@carnival.st.rim.or.jp> >>>>>"" == <inaba@st.rim.or.jp> writes:> > $B$O$$!"%P%0$C$F$$$k$h$&$G$9$M!#(B > $B$H$j$"$($:0J2<$N$h$&$K=$@5$7$F$_$^$7$?!#$"$s$^$j%A%'%C%/$7$F$^$;$s$,!#(B $B$I$&$b$"$j$,$H$&$4$6$$$^$7$?!#(B $B$@$$$?$$#O#K$J$N$G$9$,(B > ($xe + length($xm) <=> $ye + length($ym)) * ($xm <=> 0) $B$NItJ,$G(B $BHf3SBP>]$,(B 0 $B$N>l9g$N$_(B "+0E+0" $B$HHf3S$9$k$?$a(B $B$*$+$7$$CM$K$J$C$F$7$^$$$^$7$?!#(B $B$=$N8e(B $B$N(B BigInt::cmp $B$b<c43$*$+$7$/(B "+0" $B$NH=Dj$O$"$k$N$G$9$,(B "+0000" $B$J$I$NH=Dj$,$J$/(B $B%P%0$C$F$$$^$9(B(T_T) $B$5$i$KJ8;zNs2=%k!<%A%s$G$b(B "+1E-3" $B$r(B ".001" $B$KJQ49$9$k>l9g$K(B $B@hF,$K(B "." $B$H(B "0" $B$rB-$7$F$$$k$N$G$9$,%^%$%J%9$NCM$O9MN8$5$l$F(B $B$*$i$:(B "-1E-3" $B$,(B ".00-1" $B$H$J$C$F$7$^$$$^$9!#(B $B$H$j$"$($:H=L@$7$?%P%0$K$D$$$F$OBP=h$O$G$-$?$N$G$9$,!"4N?4$N7W;;ItJ,$K(B $B%P%0$,$J$$$+IT0B$JF|!9$r2a$4$7$F$*$j$^$9(B(T_T) $B$3$N(B Math::BigInt $B$*$h$S(B Math::BigFloat $B$OM>$j;HMQ$5$l$F$$$J$$$N$G$7$g$&$+!)(B CPAN $B$r8+$?$N$G$9$,(B $BFC$K?7$7$$%b%N$b8+$D$+$i$::$$C$F$*$j$^$9!#(B comp.lang.perl $BJU$j$GJ9$/$H$$$&$N$b9M$($^$7$?$,!"(B $B1Q8lNOITB-$N$?$am4m0$7$F$*$j$"$^$9(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
Re: Math::BigFloat::fcmp
Author: Inaba Hiroto
Date: Sat, 21 Mar 1998 00:00
Date: Sat, 21 Mar 1998 00:00
62 lines
3148 bytes
3148 bytes
In article <MORI.98Mar19191201@picola.freedom.co.jp> Shigeki Morimoto <Shigeki@Morimo.to> writes: > >>>>> In article <1zw5z0aa.fsf@carnival.st.rim.or.jp> > >>>>>"" == <inaba@st.rim.or.jp> writes:> > > $B$O$$!"%P%0$C$F$$$k$h$&$G$9$M!#(B > > $B$H$j$"$($:0J2<$N$h$&$K=$@5$7$F$_$^$7$?!#$"$s$^$j%A%'%C%/$7$F$^$;$s$,!#(B > $B$@$$$?$$#O#K$J$N$G$9$,(B > > ($xe + length($xm) <=> $ye + length($ym)) * ($xm <=> 0) > $B$NItJ,$G(B $BHf3SBP>]$,(B 0 $B$N>l9g$N$_(B "+0E+0" $B$HHf3S$9$k$?$a(B > $B$*$+$7$$CM$K$J$C$F$7$^$$$^$7$?!#(B 0$B$N$H$-JQ$K$J$j$=$&$@$J!"$H8e$G5$$,$D$$$?$N$G$9$,!"K;$7$/$F%U%)(B $B%m!<$G$-$^$;$s$G$7$?!#$9$_$^$;$s!#(B > $B$=$N8e(B $B$N(B BigInt::cmp $B$b<c43$*$+$7$/(B "+0" $B$NH=Dj$O$"$k$N$G$9$,(B > "+0000" $B$J$I$NH=Dj$,$J$/(B $B%P%0$C$F$$$^$9(B(T_T) > $B$5$i$KJ8;zNs2=%k!<%A%s$G$b(B "+1E-3" $B$r(B ".001" $B$KJQ49$9$k>l9g$K(B > $B@hF,$K(B "." $B$H(B "0" $B$rB-$7$F$$$k$N$G$9$,%^%$%J%9$NCM$O9MN8$5$l$F(B > $B$*$i$:(B "-1E-3" $B$,(B ".00-1" $B$H$J$C$F$7$^$$$^$9!#(B $BNI$/$J$$$N$O(BBigFloat$B$@$1$G$J$/!"(BBigInt$B$b$G$9$+!#$&!<$s!"(B > $B$H$j$"$($:H=L@$7$?%P%0$K$D$$$F$OBP=h$O$G$-$?$N$G$9$,!"4N?4$N7W;;ItJ,$K(B > $B%P%0$,$J$$$+IT0B$JF|!9$r2a$4$7$F$*$j$^$9(B(T_T) > $B$3$N(B Math::BigInt $B$*$h$S(B Math::BigFloat $B$OM>$j;HMQ$5$l$F$$$J$$$N$G$7$g$&$+!)(B $B;H$o$l$F$J$$$C$F$3$H$O$J$$$H;W$$$^$9$,!"!"!"(B > CPAN $B$r8+$?$N$G$9$,(B $BFC$K?7$7$$%b%N$b8+$D$+$i$::$$C$F$*$j$^$9!#(B $B<B:]!"$=$l$>$l$N%I%-%e%a%s%H$K$O!"(B BUGS The current version of this module is a preliminary version of the real thing that is currently (as of perl5.002) under development. $B$H(B(perl 5.004, patch 04$B$KImB0$N$b$N$G$b(B)$B=q$+$l$F$$$^$9$N$G7k9=D9$$4VJ](B $B<i$5$l$F$J$$$h$&$J5$$O$7$^$9!#(B $B$($C$H!"<+J,$N0U8+$r8@$($P!"K\3JE*$KB?G\D91i;;$r$9$k%"%W%j%1!<%7%g%s$K(B Perl$B$KImB0$N(Bbigint,bigfloat$B$O;H$&$Y$-$G$J$$$H;W$$$^$9!#A4It(BPerl$B$G=q$$(B $B$F$"$C$FCY$$$G$9$7!"(Bperl$B$@$1$,(BInstall$B$7$F$"$k;~$K$A$g$C$H(BPerl$B$+$iB?G\(B $BD91i;;$r$9$k;~$K;H$&$h$&$J$b$N$G$7$g$&!#(B $B$b$7<+J,$,B?G\D91i;;$,I,MW$K$J$C$?;~$O!"(B $B!&E,Ev$JB>$N%9%/%j%W%H8@8l$r;H$&!#(B($BC1=c$J$b$N$J$i(Bbc) $B!&(BC$B$+$iE,Ev$J%i%$%V%i%j(B($BNc$($P(Bgmp(GNU MP))$B$r;H$&!#(B $B!&(BPerl$B$r;H$$$?$$>l9g$O!"(BCPAN$B$K$"$k(BMath::Pari$B$r;H$&!#(B $BEy$r9M$($^$9!#(B $B$3$N5-;v$r=q$/0Y$K!"(BMath::Pari$B$r%$%s%9%H!<%k$7$F$_$^$7$?!#(B Math::BigInt $B$KHf3S$7$F!"(B2$B7e$[$IB.$$>e$K!"5!G=$bK-IY$G$9!#(B -- $B0pMU(B $B9@?M(B (inaba@st.rim.or.jp)
Re: Math::BigFloat::fcmp
Author: AOKI Kazumaro
Date: Sun, 22 Mar 1998 00:00
Date: Sun, 22 Mar 1998 00:00
11 lines
1093 bytes
1093 bytes
In article <1zvwqywl.fsf@carnival.st.rim.or.jp> inaba@st.rim.or.jp (Inaba Hiroto) wrote: > この記事を書く為に、Math::Pariをインストールしてみました。 もしかして、これって内部でPARI-GPを呼んだりしているのでしょ うか？ -- / 青木和麻呂（あおきかずまろ） / E-mail: maro@isl.ntt.co.jp
Re: Math::BigFloat::fcmp
Author: Inaba Hiroto
Date: Sun, 22 Mar 1998 00:00
Date: Sun, 22 Mar 1998 00:00
21 lines
1549 bytes
1549 bytes
maro@sucaba.isl.ntt.co.jp (AOKI Kazumaro) writes: > > In article <1zvwqywl.fsf@carnival.st.rim.or.jp> > inaba@st.rim.or.jp (Inaba Hiroto) wrote: > > この記事を書く為に、Math::Pariをインストールしてみました。 > > もしかして、これって内部でPARI-GPを呼んだりしているのでしょ > うか？ 使いこんでいるわけではないのであまり詳しくないのですが, 別プロセスとしてgpを起動しているのか, という意味でしたら違います. PARIのライブラリ関数を呼んでいるか, という意味ならyesです. つまりMath::PariはPARI(1.39)のライブラリをPerl5(5.003以降)から使用でき るようにする Module のようです. #これ以上の事は詳しい人におまかせしたいです. -- 稲葉 浩人 <inaba@sdd.tokyo-sc.toshiba.co.jp/inaba@st.rim.or.jp>
Re: Math::BigFloat::fcmp
Author: Shigeki Morimoto
Date: Mon, 23 Mar 1998 00:00
Date: Mon, 23 Mar 1998 00:00
20 lines
1454 bytes
1454 bytes
$B?9K\!w%U%j!<%@%`$G$9(B > $B$($C$H!"<+J,$N0U8+$r8@$($P!"K\3JE*$KB?G\D91i;;$r$9$k%"%W%j%1!<%7%g%s$K(B > Perl$B$KImB0$N(Bbigint,bigfloat$B$O;H$&$Y$-$G$J$$$H;W$$$^$9!#A4It(BPerl$B$G=q$$(B > $B$F$"$C$FCY$$$G$9$7!"(Bperl$B$@$1$,(BInstall$B$7$F$"$k;~$K$A$g$C$H(BPerl$B$+$iB?G\(B > $BD91i;;$r$9$k;~$K;H$&$h$&$J$b$N$G$7$g$&!#(B $B:n$m$&$H$7$F$$$k$b$N$,(B $B6HL3$H$$$&$+(B $B$*6b$r7W;;$9$k(B CGI $B$J$N$G(B $BB?G\D97W;;$H(B $B$$$&$+(B BCD $B1i;;$r$7$?$+$C$?$H$$$&$N$,$=$b$=$b$NF05!$G$9!#(B $B7W;;NL$OB?$/$J$$(B($B$H$$$&$+(B 5,6$B2s$J(B)$B$N$G(B Perl $B$G$$$$$d$H;W$C$F$^$7$?!#(B > $B$3$N5-;v$r=q$/0Y$K!"(BMath::Pari$B$r%$%s%9%H!<%k$7$F$_$^$7$?!#(B > Math::BigInt $B$KHf3S$7$F!"(B2$B7e$[$IB.$$>e$K!"5!G=$bK-IY$G$9!#(B $B$"$j$,$H$&$4$6$$$^$9(B(_ _)(_ _)(_ _)(_ _) $BAaB.(B $B%$%s%9%H!<%k$7$F;n$7$F$_$^$9(B -- Shigeki Morimoto mori@freedom.co.jp Shigeki@morimo.to
Re: Math::BigFloat::fcmp
Author: Inaba Hiroto
Date: Tue, 24 Mar 1998 00:00
Date: Tue, 24 Mar 1998 00:00
27 lines
2096 bytes
2096 bytes
In article <MORI.98Mar23132848@picola.freedom.co.jp> Shigeki Morimoto <Shigeki@Morimo.to> writes: > $B$($C$H!"<+J,$N0U8+$r8@$($P!"K\3JE*$KB?G\D91i;;$r$9$k%"%W%j%1!<%7%g%s$K(B > Perl$B$KImB0$N(Bbigint,bigfloat$B$O;H$&$Y$-$G$J$$$H;W$$$^$9!#A4It(BPerl$B$G=q$$(B > $B$F$"$C$FCY$$$G$9$7!"(Bperl$B$@$1$,(BInstall$B$7$F$"$k;~$K$A$g$C$H(BPerl$B$+$iB?G\(B > $BD91i;;$r$9$k;~$K;H$&$h$&$J$b$N$G$7$g$&!#(B $B:n$m$&$H$7$F$$$k$b$N$,(B $B6HL3$H$$$&$+(B $B$*6b$r7W;;$9$k(B CGI $B$J$N$G(B $BB?G\D97W;;$H(B $B$$$&$+(B BCD $B1i;;$r$7$?$+$C$?$H$$$&$N$,$=$b$=$b$NF05!$G$9!#(B $B7W;;NL$OB?$/$J$$(B($B$H$$$&$+(B 5,6$B2s$J(B)$B$N$G(B Perl $B$G$$$$$d$H;W$C$F$^$7$?!#(B $B$&!<!<!<$s!"<+J,$NA[A|$7$?;H$$$+$?$H$:$$$V$s0c$C$F$$$k$J$!(B:-> CGI$B$G$9(B $B$+(B...$B$7$+$b$*6b$H$$$&$H!"2?@i7e$H$+$O$$$i$J$$$G$9$M(B... > $B$3$N5-;v$r=q$/0Y$K!"(BMath::Pari$B$r%$%s%9%H!<%k$7$F$_$^$7$?!#(B > Math::BigInt $B$KHf3S$7$F!"(B2$B7e$[$IB.$$>e$K!"5!G=$bK-IY$G$9!#(B $B$"$j$,$H$&$4$6$$$^$9(B(_ _)(_ _)(_ _)(_ _) $BAaB.(B $B%$%s%9%H!<%k$7$F;n$7$F$_$^$9(B $B$9$_$^$;$s!"(BMath::Pari$B$r;H$&$HCY$/$J$k$+$b$7$l$^$;$s!#(BCGI$B$G$9$H!"5/F0(B $B;~$K(BPARI$B$N%i%$%V%i%j$r%j%s%/$9$k$N$G(B(WWW$B$N%5!<%P$,(BApach$B$G(Bmod_perl$B$r;H$C(B $B$F$$$k$H$+$G$J$$$H(B)$B$=$N%*!<%P%X%C%I$,7k9=Bg$-$$$H;W$$$^$9!#B?G\D91i;;(B $B$=$N$b$N$OB.$$$s$G$9$1$I!#(B -- $B0pMU(B $B9@?M(B (inaba@st.rim.or.jp)
Thread Navigation
This is a paginated view of messages in the thread with full content displayed inline.
Messages are displayed in chronological order, with the original post highlighted in green.
Use pagination controls to navigate through all messages in large threads.
Back to All Threads