Primality by trial division: Difference between revisions
Content added Content deleted
(adding gap) |
|||
Line 357: | Line 357: | ||
END IF |
END IF |
||
END FUNCTION</lang> |
END FUNCTION</lang> |
||
=={{header|GAP}}== |
|||
<lang gap>IsPrimeTrial := function(n) |
|||
local k, m; |
|||
if n < 5 then |
|||
return (n = 2) or (n = 3); |
|||
fi; |
|||
if RemInt(n, 2) = 0 then |
|||
return false; |
|||
fi; |
|||
m := RootInt(n); |
|||
k := 3; |
|||
while k <= m do |
|||
if RemInt(n, k) = 0 then |
|||
return false; |
|||
fi; |
|||
k := k + 2; |
|||
od; |
|||
return true; |
|||
end;</lang> |
|||
=={{header|Go}}== |
=={{header|Go}}== |