Anonymous user
Miller–Rabin primality test: Difference between revisions
m
→{{header|Erlang}}
Line 922:
% and augmented number of deterministic proving bases.
% Deleted first_1000/0 because not used.
% Modified, January
is_prime(1) -> false;
Line 958:
case mr_series(N, A, D, S) of
[1|_] -> false;
L -> not lists:member(N-1, L);
[_|T] -> lists:member(1, T) % foreshortens some searches
end
end,
| |||