5 lines
245 B
Text
5 lines
245 B
Text
procedure isprime(n) #: return n if prime (using trial division) or fail
|
|
if not n = integer(n) | n < 2 then fail # ensure n is an integer greater than 1
|
|
every if 0 = (n % (2 to sqrt(n))) then fail
|
|
return n
|
|
end
|