LinuxSir.cn,穿越时空的Linuxsir!

 找回密码
 注册
搜索
热搜: shell linux mysql
查看: 1164|回复: 1

一个求素数的程序.

[复制链接]
发表于 2004-12-12 09:35:28 | 显示全部楼层 |阅读模式
#!/usr/bin/perl -w
$max_length_primes=20;       #求的素数的最大个数
$value=1;                  
$count=1;                   #从1开始计数
while($count<=$max_length_primes) { #如果没达到20个矩续循环
        $value++;
        $composite=0;
OUTER: for($i=2;$i<$value;$i++) {
                if(!$i%2 and $i>2){   #判断是否是偶数如果是则退出
                        last OUTER;}
        INNER:for($j=$i;$j<$value;$j++) {
                if(!$i%2 and $i>2){    #判断是否是偶数如果是则退出
                        last INNER;}
                if(($j*$i)==$value) {   #判断是否为合数
                $composite=1;
                last OUTER;
                }
        }
}
        if(! $composite) {
        $count++;
        print "$value is prime\n";
}
}
~
发表于 2005-1-15 15:15:14 | 显示全部楼层
lee@debian:~$ cat sha
#!/usr/bin/python

s=[2,3]
for a in range(2,1000):
        t=int(pow(a,0.5))
        for n in range(2,t+1):
                if a%n==0 :
                        break
                elif n==t:
                        s+=[a]
print s
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表