设为首页
收藏本站
用户名
Email
自动登录
找回密码
密码
登录
注册
快捷导航
平台
Portal
论坛
BBS
文库
项目
群组
Group
我的博客
Space
搜索
搜索
热搜:
shell
linux
mysql
本版
用户
LinuxSir.cn,穿越时空的Linuxsir!
»
论坛
›
编程开发讨论区 —— LinuxSir.cn
›
Perl | PHP | Python 脚本程序开发
›
一个求素数的程序.
返回列表
查看:
1160
|
回复:
1
一个求素数的程序.
[复制链接]
bst
bst
当前离线
积分
197
IP卡
狗仔卡
发表于 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";
}
}
~
回复
使用道具
举报
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
显身卡
leeshasr
leeshasr
当前离线
积分
475
IP卡
狗仔卡
发表于 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
回复
支持
反对
使用道具
举报
显身卡
返回列表
高级模式
B
Color
Image
Link
Quote
Code
Smilies
您需要登录后才可以回帖
登录
|
注册
本版积分规则
发表回复
回帖后跳转到最后一页
Copyright © 2002-2023
LinuxSir.cn
(http://www.linuxsir.cn/) 版权所有 All Rights Reserved.
Powered by
RedflagLinux!
技术支持:
中科红旗
|
京ICP备19024520号
快速回复
返回顶部
返回列表