【初心者】課題をクリアしていくスレ【講習会】

【初心者】課題をクリ ..

259:x≠先生かつx＝生徒　⇒　x＝俺
04/07/06 07:38 BOq5Vq10.net
#!D:\perl\bin\perl.exe

print "Content-type: text/plain\n\n";
print "Start\n";
print "2\n";
$table[0] = 2;
$i = 1;
for(2..1000){
　　　　for($i += 2; ; $i += 2){
　　　　　　　　if(&IsPrime($i)){ last; }
　　　　}
}
print "Finish";
exit(1);

sub IsPrime{
　　　　(my $src) = @_;
　　　　for($j = 0; $table[$j] <= sqrt($src); $j++){
　　　　　　　　if($src % $table[$j] == 0){ return 0; }
　　　　}
　　　　print $src."\n";
　　　　push(@table, $src);
　　　　return 1;
}

# Perl版。printを取ってみると分かるけどPerlはインタープリタなのに
# 結構処理速いね。。。

次ページ

続きを表示

1を表示