#! ruby -Ks
hj=Time.now
def sh(a)
if a==1 then
return 0
end
b=a**(1/2.0)
i=0
while x[i]<=b
if a%x[i]==0 then
return 0
end
i+=1
end
return 1
end
x=[2]
print " ", x[0]," "
x[1]=3
print " ", x[1]," "
cn=2
for i in 5.step(10000,6)
if sh(i,x)==1 then
if i<10
print " ", i," "
else
if i<100 then
print " ", i," "
else
if i<1000 then
print " ", i," "
else
print i," "
end
end
end
x[cn]=i
cn+=1
if cn>1 && cn%20==0 then
print "\n"
end
end
if sh(i+2,x)==1 then
if i+2<10
print " ", i+2," "
else
if i+2<100 then
print " ", i+2," "
else
if i+2<1000 then
print " ", i+2," "
else
print i+2," "
end
end
end
x[cn]=i+2
cn+=1
if cn>1 && cn%20==0 then
print "\n"
end
end
end
ow=Time.now
print "\n"
print "見つかった素数の個数は",cn,"個です。\n"
print "素数探索時間は",ow-hj,"秒です。\n"
参考ダウンロード添付ファイル
実行結果
バージョン１の場合
バージョン２の場合
バージョン３の場合
バージョン４の場合
バージョン５の場合
バージョン６の場合
今回は、改善が見られバージョンアップの認定が出来ました。
次に、５の倍数も検索対象から外すとどうなるでしょうか。
第７話へ 第９話へ
