质数的定义:质数只能被1或则自身整除的自然数,不包含1
例如,2是个质数,3也是个质数,而4不是质数(因为它可以被1、4和2整除),等等。
这里我们来找出1到10000之间的质数。
算法一: 一般算法
#!/usr/bin/env perl
my $start_num = 1; # 初始数
my $end_num = 10000; # 结尾数
my $i, $j, $m;
for( $i=$start_num; $i<$end_num; $i++ ) {
my $is_prime = 1; # 1=质数, 0=非质数
for ( $m = $i-1; $m > 1; $m-- ) { # 1 < 被除数 < $i
if ( $i % $m == 0 ) {
$is_prime = 0; # 能被其他数整除,所以不是质数
}
}
if ( $is_prime ) {
print "$i is a prime.\n";
}
}