vault backup: 2023-09-25 14:36:39

This commit is contained in:
Louis Gallet 2023-09-25 14:36:39 +02:00
parent e03032f741
commit 34a743966b
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY

View File

@ -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";;