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

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

diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 71fb4e4..347f41c 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -445,10 +445,15 @@ $$
 = O(log(n))
 $$
 ##  Exercise 4.12 - Prime number
-```Ocaml
+```OCaml
 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 a 
+		let rec pr n k =
+			if n mod k = 0 then
+				false
+			else
+				check n (k + 1)
+		in pr n 2;;