[PerlChina] Re: 最简单的求素数算法

2009/5/20 钟声 <gh00920307@163.com>:
>
> 帮忙看下这是不是最简单的求素数算法
> open TEXT,">value.txt";
> @prime = (2..100000);
> @list=();
> while(my $a=shift @prime){
>     push @list,$a;
>     @prime = grep ($_%$a, @prime);
> }
> print TEXT (join " ",@list);

这不就是筛法么？不过你的实现有问题，在初始的 @prime 中，可以只包含奇数，
因为偶素数只有一个 2.

> grip和map中第一个参数能不能用子进程呢

可以呀，它们的手册中就有例子。

lee

--~--~---------~--~----~------------~-------~--~----~
您收到此信息是由于您订阅了 Google 论坛"PerlChina Mongers 讨论组"论坛。
要在此论坛发帖，请发电子邮件到 perlchina@googlegroups.com
要退订此论坛，请发邮件至 perlchina+unsubscribe@googlegroups.com
更多选项，请通过 http://groups.google.com/group/perlchina?hl=zh-CN 访问该论坛
-~----------~----~----~----~------~----~------~--~---