Re^2: Decimal Floating Point (DFP) and does Perl needs DFP?

real 0m10.722s user 0m10.725s sys 0m0.000s
[download]

With the Math::Decimal128 one-liner, on my Windows 7 box, perl-5.20.0:

C:\>perl -MMath::Decimal128=":all" -le "$t = time();$n1=Math::Decimal1
+28->new('10', 0);$n2=Math::Decimal128->new('1000001', -6);for(1..6000
+0000){$n1 *= $n2}print $n1;$t2 = time() - $t;print $t2;"
114197313013072744502959647597176e-5
25
[download]

25 seconds is not great, but OTOH it's not too bad for 60 million overloaded XSub calls.

Cheers,
Rob

Comment on Re^2: Decimal Floating Point (DFP) and does Perl needs DFP? Select or Download Code

Replies are listed 'Best First'.
Re^3: Decimal Floating Point (DFP) and does Perl needs DFP? by flexvault (Monsignor) on Jan 19, 2015 at 18:09 UTC
Hello syphilis , I got 35-37 seconds on a Debian Linux with Perl 5.14.2. Regards...Ed "Well done is better than well said." - Benjamin Franklin	[reply]