From f1a9359db35dfe0a87b60c04df3b86d752e7c70d Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Mon, 25 Sep 2023 15:02:04 +0200
Subject: [PATCH] vault backup: 2023-09-25 15:02:04

---
 Algo/Séminaire/Exercices seminaire.md | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 347f41c..8570bad 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -446,14 +446,21 @@ $$
 $$
 ##  Exercise 4.12 - Prime number
 ```OCaml
+(* V1 *)
 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 mod k = 0 then
+			if n = k then
+				true
+			else if n mod k = 0 then
 				false
 			else
 				check n (k + 1)
 		in pr n 2;;
+(* V2 *)
+
+```
+