原帖由天痕于2005-01-29, 21:48:13发表
ISPRIME_R(n, s)    （其中S是个比较大的数）


1  for i：=1 to s
2    a：=RANDOM(n-1)+1
3    if an-1<>1 (mod n)
4      return FALSE
5  return TRUE