[32796] in Perl-Users-Digest
Perl-Users Digest, Issue: 4060 Volume: 11
daemon@ATHENA.MIT.EDU (Perl-Users Digest)
Mon Oct 21 14:09:34 2013
Date: Mon, 21 Oct 2013 11:09:02 -0700 (PDT)
From: Perl-Users Digest <Perl-Users-Request@ruby.OCE.ORST.EDU>
To: Perl-Users@ruby.OCE.ORST.EDU (Perl-Users Digest)
Perl-Users Digest Mon, 21 Oct 2013 Volume: 11 Number: 4060
Today's topics:
Re: Any experiences with Rakudo Perl 6? <cwilbur@chromatico.net>
Digest Administrivia (Last modified: 6 Apr 01) (Perl-Users-Digest Admin)
----------------------------------------------------------------------
Date: Mon, 21 Oct 2013 12:58:19 -0400
From: Charlton Wilbur <cwilbur@chromatico.net>
Subject: Re: Any experiences with Rakudo Perl 6?
Message-Id: <87ppqy8st0.fsf@chromatico.net>
>>>>> "gamo" == gamo <gamo@telecable.es> writes:
gamo> Forget about it. It's unusable because hangs out.
It's unusable because the author of the code doesn't understand how
computers do math. This is not a problem with Perl 6 but a problem in
translating abstract concepts with theoretically infinite precision into
electrons moving on silicon.
http://docs.oracle.com/cd/E19957-01/806-3568/ncg_goldberg.html
Read and be enlightened.
Charlton
gamo> I used this program to test
gamo> #!/usr/bin/perl6
gamo> use v6;
gamo> =begin pod
gamo> Calculate the N(0,1) prob. value corresponding to Z
gamo> =end pod
gamo> # say "Enter Z: "; my $z = 1; # @ARGV[0]; # $*IN; # .lines; #
gamo> chomp $z; die "Wrong number" unless $z;
gamo> my $step = 1/1000000; my $r = 0.5; my $pi =
gamo> 3.14159265358979324; my $static = 1/(1000000*sqrt(2*$pi)); my
gamo> $e = exp(1); my $i = $step; loop { $i += $step; if $i > $z {
gamo> last;
gamo> }
gamo> $r += $static*($e**(-0.5*$i*$i));
gamo> }
gamo> $r = sprintf ("%.7f",$r); say "P[Z<=$z] = $r"; my $rleft = 1 -
gamo> $r; $r -= $rleft; say "P[-$z<=Z<=$z] = $r";
gamo> exit 0;
gamo> # After correcting it more than 20 times, it shows no error
gamo> but doesn't run
--
Charlton Wilbur
cwilbur@chromatico.net
------------------------------
Date: 6 Apr 2001 21:33:47 GMT (Last modified)
From: Perl-Users-Request@ruby.oce.orst.edu (Perl-Users-Digest Admin)
Subject: Digest Administrivia (Last modified: 6 Apr 01)
Message-Id: <null>
Administrivia:
To submit articles to comp.lang.perl.announce, send your article to
clpa@perl.com.
Back issues are available via anonymous ftp from
ftp://cil-www.oce.orst.edu/pub/perl/old-digests.
#For other requests pertaining to the digest, send mail to
#perl-users-request@ruby.oce.orst.edu. Do not waste your time or mine
#sending perl questions to the -request address, I don't have time to
#answer them even if I did know the answer.
------------------------------
End of Perl-Users Digest V11 Issue 4060
***************************************
