perl 计算素数(每一个取模)

本文介绍了一个使用Perl语言实现的质数筛选算法。通过定义一个名为mod的子程序来判断一个数是否为质数,并利用该子程序找出1到1000之间的所有质数。代码采用简洁的方式实现了质数的计算逻辑。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

 

ContractedBlock.gifExpandedBlockStart.gif代码
#!/usr/bin/perl -w
my @ar;
for ($si=1; $si<=1000; $si++)
{
$number = mod($si);
if ($number==1)
{
push @ar, $si;
#print "$si\n";
}
}
print "@ar\n";
sub mod
{
my $s4 = 0;
my $s2;
for ($s2 = 1; $s2 < $_[0]; $s2++)
{
my $s3 = $_[0] % $s2;
if ($s3==0)
{
$s4++;
#print "$s4\n";
}
}
return $s4;
}


 

转载于:https://www.cnblogs.com/mouse1/archive/2009/12/15/1624632.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值