Primality by trial division: Difference between revisions
adding gap
(adding gap) |
|||
Line 357:
END IF
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}}==
| |||