Re: [perl6] More Inline::Perl5 musings

The Perl6 Spec allows for native num128, but MoarVM seems to only support native 32 and 64-bit nums (It's unclear to me how to actually reach the "long double" case). Eventually one should be able to do this:

# Not yet:
$ perl6 -e 'my num128 $one = Num(1); $one += 1e-30; say $one == 1'
False
[download]

I have no idea or intuition for how hard it might be to get num128 to work in MoarVM, but apparently num128 isn't on the roadmap for the near future.

In response to Tux (who probably already knows this), Perl6 Rats are great for general-purpose computing (and completely awesome in financial software), but only higher precision will do for numerical simulation. Until we have num128, there is value to Math::Float128:

$ perl6 -e 'my $one = 1; $one += 1e-16; say $one == 1'
True
$ perl6 -e 'say pi ** 621'
Inf
$ perl6 -e 'say sin(pi/2).WHAT'
(Num)
$ perl6 -e 'my $val = sin(pi/2) + 0.1; my $eleven = 0; $eleven += $val
+ for 1..10; say $eleven == 11'
False
[download]

Good Day,
Dean

Comment on Re: [perl6] More Inline::Perl5 musings Select or Download Code

Replies are listed 'Best First'.

Re^2: [perl6] More Inline::Perl5 musings
by syphilis (Archbishop) on Mar 18, 2016 at 11:13 UTC

Corion

Tux

duelafn

use Inline::Perl5;

my $p5 = Inline::Perl5.new;
$p5.use('Math::Float128');

my $f1 = $p5.invoke('Math::Float128', 'new', '2.5');
my $f2 = $p5.invoke('Math::Float128', 'new', '3.0');

my $swap = 0; # Set to true if order of
              # operands is to be swapped

# Set $f3 to $f1 divided by $f2
my $f3 = $f1._overload_div($f2, $swap);

say "# $f3";

# Outputs, as expected:
# 8.33333333333333333333333333333333365e-01
[download]

my $f3 = $f1 / $f2;
[download]

say "# $f3";

C:\>perl -V:useshrplib
useshrplib='true';
[download]

[reply]
[d/l]
[select]


Perl: the Markov chain saw
	PerlMonks