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

 

代码

# !/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