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

Ù|"µ²»•þÊÇ2¼°Æ䱶"µ¡­¡­
ËùÒÔÓà for (my $a=3;$a<100000;$a+=2) ×îÉÙÄÜœpÉÙÒ»°ëß\ÐЕrég
-------- Original Message  --------
Subject: [PerlChina] ×î¼òµ¥µÄÇóËØÊýËã·¨
From: ÖÓÉù <gh00920307@163.com>
To: perlchina <perlchina@googlegroups.com>
Date: 20/5/2009 11:23

°ïæ¿´ÏÂÕâÊDz»ÊÇ×î¼òµ¥µÄÇóËØÊýËã·¨
open TEXT,">value.txt";
@prime = (2..100000);
@list=();
while(my $a=shift @prime){
    push @list,$a;
    @prime = grep ($_%$a, @prime);
}
print TEXT (join " ",@list);
ÓÃÁË´ó¸Å20¶àÃë¡£¡£»¹Óиü¿ìµÄÂð
gripºÍmapÖеÚÒ»¸ö²ÎÊýÄܲ»ÄÜÓÃ×Ó½ø³ÌÄØ

--

---

´© Ô½µØÕð´ø ¼ÍÄîãë´¨µØÕðÒ»ÖÜÄê

--  Best Regards, 	Anthony WU

--~--~---------~--~----~------------~-------~--~----~
ÄúÊÕµ½´ËÐÅÏ¢ÊÇÓÉÓÚÄú¶©ÔÄÁË Google ÂÛ̳¡°PerlChina Mongers ÌÖÂÛ×顱ÂÛ̳¡£
 ÒªÔÚ´ËÂÛ̳·¢Ìû£¬Çë·¢µç×ÓÓʼþµ½ perlchina@googlegroups.com
 ÒªÍ˶©´ËÂÛ̳£¬Çë·¢ÓʼþÖÁ perlchina+unsubscribe@googlegroups.com
 ¸ü¶àÑ¡ÏÇëͨ¹ý http://groups.google.com/group/perlchina?hl=zh-CN ·ÃÎʸÃÂÛ̳

-~----------~----~----~----~------~----~------~--~---