一个求素数的程序.

bst

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

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