( hg2ecz | 2020. 03. 25., sze - 03:01 )

A PERL nyelv is említve lett. Két évtizede (sicc!) még abban írtam a diplomamunkám webes CGI részét. De azóta a fejlesztése megragadt, semmi JIT, semmi modernizálás.
Nagyon lassú az értelmezője a korszerű, JIT-es futtatóval rendelkező szkriptnyelvekhez képest.

$ time ./pi_perl.pl
69484.402000 millisec
Result: 3.14159265
real    1m9,500s

#!/usr/bin/perl
use Time::HiRes;

my $result = 0.0;
my $nevezo = 1.0;
my $sign = 1.0;

my $t0 = Time::HiRes::gettimeofday() * 1000000;
for ($n=0; $n<300*1000*1000; $n++) {
    $result += $sign/$nevezo;
    $nevezo += 2.0;
    $sign = -$sign;
}
my $t1 = Time::HiRes::gettimeofday() * 1000000;

printf ("%f millisec\n", ($t1 - $t0)/1000.);
printf ("Result: %.8f\n", 4.0 * $result);