第10講 素数探索

第8話 素数探索プログラムの探索対象からグループ全体を外すと?
#! 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"

参考ダウンロード添付ファイル
実行結果
バージョン6


バージョン1の場合
旧バージョン
バージョン2の場合
新バージョン
バージョン3の場合
新新バージョン
バージョン4の場合
バージョン4
バージョン5の場合
バージョン5
バージョン6の場合
バージョン6

今回は、改善が見られバージョンアップの認定が出来ました。
次に、5の倍数も検索対象から外すとどうなるでしょうか。


第7話へ 第9話へ
004


eclipse c++ 入門
魔方陣 数独で学ぶ VBA 入門
数独のシンプルな解き方・簡単な解法の研究
vc++講義へ
vba 2013 2010 2007 入門へ
VB講義基礎へ
初心者のための世界で一番わかりやすいVisual C++入門基礎講座へ
初心者のための世界で一番わかりやすいVisual Basic入門基礎講座へ
専門用語なしの C言語 C++ 入門(Visual C++ 2010で学ぶ C言語 C++ 入門)
専門用語なしの excel vba マクロ 入門 2013 2010 2007 対応講義 第1部
eclipse java 入門へ
excel 2016 vba 入門第1部へ
本サイトトップへ