vault backup: 2023-09-25 14:36:39
This commit is contained in:
parent
e03032f741
commit
34a743966b
@ -451,5 +451,10 @@ let prime n =
|
|||||||
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 n mod 2 = 0 then
|
||||||
false
|
false
|
||||||
else
|
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