#!/usr/bin/perl
$maxprimes=<STDIN>;
print "input prime number : $maxprimes";
$value=1;
$count=0;
while ($count < $maxprimes) {
$value++;
$composition=0;
OUTER : for ($i=2;$i<$value;$i++){
for ($j=$i;$j<$value;$j++){
if (($j*$i)==$value){
$composition=1;
last OUTER;
}
}
}
if (! $composition) {
$count++;
print "$value is prime \n";
}
}
Perl脚本-查找质数
最新推荐文章于 2022-11-29 16:26:26 发布