2009年1月7日水曜日

数値が素数か調べる

ハッシュテーブルが257では小さすぎるので
2000くらいにしたいな。と思い
2000くらいの素数ないかな?と思い
その数が素数であるか調べるスクリプトを書いてみました

;素数例:2039

d=0
s=""
input d,300,20,0
button "calc",*start
stop

*start
cls
input d,300,20,0
button "calc",*start


tmp=1
n=0
m=0
l=0
p=0

n=d/2
m=d\2;注
if m==0{
s="× "+2+" * "+n
logmes s
s=""
goto *finish
}else{
p=(n+1)*2
s="○ "+2+" * "+n+" = "+p:
logmes s
s=""
goto *begin
}

*begin
tmp+=2
tmp02=tmp*tmp
n=0
m=0
l=0
p=0
s=""
if tmp02 <=d{
n=d/tmp
m=d\tmp;注
if m==0{
s="× "+tmp+" * "+n
logmes s
s=""
goto *finish}
else{
p=(n+1)*tmp
s="○ "+tmp+" * "+n+" = "+p
logmes s
s=""
goto *begin}
}
*finish
stop


注:¥が文字コードの関係で\になっています
ハッシュテーブルの大きさは2039にしよっと

0 件のコメント: