help
输入prime6(待测质数p)来判断p是否为素数。
endh
function prime6(p)
if p==1
return false
endif
if p==2
return true
elseif p==3
return true
elseif p==5
return true
elseif p==7
return true
else
endif
if mod(p,6)==2
return false
elseif mod(p,6)==3
return false
elseif mod(p,6)==4
return false
elseif mod(p,6)==0
return false
else
endif
variable n=5,m=sqrt(p)
do
if mod(p,n)==0
return false
elseif mod(p,n+2)==0
return false
endif
n=n+6
until n>m
return true
endf