数値が素数か調べる

ハッシュテーブルが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にしよっと