04/07/10 19:34 gc5EpECZ
#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