问使用质数进行Perl6与Perl5基准测试

EN

事实证明，尽管素数是整数，但在Perl6版本中，每次计算都是使用浮点进行的。这是由对子例程的调用引起的。如果你愿意这样做：

sieve_sundaram(1000)

而不是：

sieve_sundaram(1e3)

然后它突然变得快了4倍。在Perl5中，您永远不知道要处理的值是什么。在Perl6中，如果你告诉它使用浮点数，它会影响所有的计算，使其成为浮点数。1e3是一个浮点值。在Perl6中，1000是一个整数。

而且，您似乎有一种次优算法:第二个foreach不需要从1..$n开始，但可以从$i..$n开始。对我来说，这使得Perl5版本的代码运行时间缩短到89msec。

由于您的程序在Perl5版本中没有使用BigInt，因此它基本上使用的是本机整数。在Perl6中，所有整数计算都是原生的，除非您将它们标记为BigInts。如果我调整你的Perl6版本，这个版本的运行时间从4671毫秒下降到414毫秒：

sub sieve_sundaram(int $n) {
    my %a;
    my int @s = 2;
    my int $m = $n div 2 - 1;
    for 1..$n -> int $i {
        for $i..$n -> int $j {
            my int $p = $i + $j + 2 * $i * $j;
            if $p < $m {
                %a{$p} = True;
            }
        }
    }
    for 1..$m -> int $k {
        if ! %a{$k} {
            my int $q = 2 * $k + 1;
            @s.push($q);
        }
    }

    return @s;
}

sieve_sundaram(1000);

因此，速度比以前快了大约11倍。比Perl5版本慢不到5倍。

在Perl6中获取素数的最常用版本是：

(1..1000).grep( *.is-prime )

对我来说，它是在原始Perl 5算法的噪声中执行的。对于多CPU机器上较大的值，我会这样写：

(1..2500).hyper.grep( *.is-prime )

在2500年左右，它变得更快的hyper它，因此工作自动分配到多个中央处理器。

我想我不能对Liz说的话再多加什么了。除以下内容外：

“但是为了对多种语言进行基准测试，我需要在任何地方运行相同的东西。”

...where "same“在英语中被定义为看起来相似的语法，对于完全不同的编程语言之间的等价性来说，这是一个非常糟糕的标准。Perl 6的语法与Perl 5非常相似，甚至完全相同，但其底层的语义却截然不同。整个语言已经针对正确性进行了调整，默认语法很容易达到，而不是最优行为。另一个很好的例子是Perl 6字符串，它们非常慢，它们总是完全标准化的unicode，而不是普通字节的字符串。对它们的所有操作都考虑了字素的unicode概念，而不是字节和字节偏移量。这太棒了！但与C/Perl5字符串更等价的类型可能是Buf，不幸的是，它没有像操作符/方法那样的字符串，而只是一个字节块。