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

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

306:HSPで素数　エラトステネスの篩い
04/07/10 19:34 gc5EpECZ.net
#include "hspext.as"
True=1
False=0
Max=7920
Dim SosuList, Max

emsqr chk,Max
chk=chk>>4

mes "計算中......"
i=3
while i<=chk
　　　　j=i+i
　　　　while j<Max
　　　　　　　　SosuList.j=True
　　　　　　　　j=j+i
　　　　wend
　　　　i=i+2
wend

i=3
sum=1
while i<Max
　　　　if SosuList.i=False {
　　　　　　　　sum++
　　　　}
　　　　i=i+2
wend
mes "合計"+sum+"個の素数を発見しました。"
stop

次ページ

続きを表示

1を表示