vault backup: 2023-09-25 23:36:18

Algo/Séminaire/Exercices seminaire.md

@@ -461,6 +461,18 @@ let prime n =
 				check n (k + 1)
 		in pr n 2;;
 (* V2 *)
-
+let prime n =
+	if n < 1 then
+		invalid_args "n should not be inferior to zero"
+	else if x = 2 then true
+	else 
+		let rec pr n k =
+			if n = k then
+				true
+			else if n mod k = 0 then
+				false
+			else
+				check n (k + 1)
+		in (n = 2) || (n mod 2 = 1 and check n 3)
 ```