10 lines
220 B
OCaml
10 lines
220 B
OCaml
fun is_prime n =
|
|
if n = 2 then true
|
|
else if n < 2 orelse n mod 2 = 0 then false
|
|
else let
|
|
fun loop k =
|
|
if k * k > n then true
|
|
else if n mod k = 0 then false
|
|
else loop (k+2)
|
|
in loop 3
|
|
end
|