Primality by trial division: Difference between revisions

m
(+Icon+Unicon)
Line 738:
 
<lang SNOBOL4>define('isprime(n)i,max') :(isprime_end)
isprime isprime = n; max = chop(sqrt(n)); i = 1
le(n,1) :s(freturn)
le(n,3) :s(return)
Anonymous user