vault backup: 2023-09-25 14:45:26
This commit is contained in:
parent
34a743966b
commit
9d5090db08
@ -449,12 +449,5 @@ $$
|
|||||||
let prime n =
|
let prime n =
|
||||||
if n < 1 then
|
if n < 1 then
|
||||||
invalid_args "n should not be inferior to zero"
|
invalid_args "n should not be inferior to zero"
|
||||||
else if n mod 2 = 0 then
|
else if x = 2 then true
|
||||||
false
|
|
||||||
else if n mod 3 = 0 then
|
|
||||||
false
|
|
||||||
else if n mod 5 = 0 then
|
|
||||||
false
|
|
||||||
else if n mod 7 = 0 then
|
|
||||||
false
|
|
||||||
else "nombre premier";;
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user