第 10000 个素数

Wed Oct 26, 2016

到目前为止(2016.10.26), Raku 的速度相比 Perl 5/Python 的差距还是很大的。以打印从 1 开始计数的第 10000 个素数为例, 使用如下版本的 Rakudo:

This is Rakudo version 2016.07.1 built on MoarVM version 2016.07 implementing Raku.c.

从程序执行耗费的时间来看, Raku 实在慢的如蜗牛。

并发打印第10000个素数 #

sub find-prime($count) {
    my $channel = Channel.new;

    my $promise = start {
        for ^$count {
            $channel.send($_) if .is-prime;
        }  
        LEAVE $channel.close unless $channel.closed;
    }
    return $channel.list but role :: { method channel { $channel } };;
}

my @primes = find-prime(110000);

#for @primes {
#    @primes.channel.close if $++ > 110000; # hard-close the channel after 110000 found primes
#    .say if $++ %% 100 # print every 100th prime
#}

say @primes[10000];
say now - INIT now;

上面的并发查找素数, 用时 35 秒多! but 的作用类似于 does。

gather/take 版 #

gather/take 类似于 Python 中的 yield , 用于惰性求值。

my @vals = lazy gather {
    for ^Inf {
        take $_ if .is-prime;
    }
}

say @vals[10000];
say now - INIT now;

用时 25 秒多, 比并发版本的要快一点。

普通版本 #

如果不使用 is-prime 函数, 查找第 10000 个素数就巨慢:

lazy gather {
     CANDIDATE: for  2 .. 110000 -> $candidate {
    	 for  2 .. sqrt $candidate  -> $divisor {
    		next CANDIDATE if $candidate % $divisor == 0;
    	 }
    	take $candidate;
     }
 } ==> my @vals;

say @vals[10000];
say now - INIT now;

下面这个 lazy gather 根本没有起作用, 原因是 feed 运算符还没实现 lazy 求值? - 巨慢。

lazy gather {
    for ^Inf {
      take $_ if .is-prime;
    }
} ==> my @vals;

say @vals[10000];
say now - INIT now;

没有使用 is-prime 函数的普通指数运算也会巨慢:

 my @vals = lazy gather {
    for 1..110000 {
      take $_ if (2 ** ($_ - 1) % $_ == 1 || $_ == 2);
     }
 }

 say @vals[10000];
 say now - INIT now;