From 81fd480fbddc9ae526bbd574f56171a442b972ce Mon Sep 17 00:00:00 2001
From: Louis <me@louisgallet.fr>
Date: Fri, 29 Sep 2023 15:48:50 +0200
Subject: [PATCH] vault backup: 2023-09-29 15:48:50

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

diff --git a/Algo/Séminaire/Exercices seminaire.md b/Algo/Séminaire/Exercices seminaire.md
index 887b30a..e012bb4 100644
--- a/Algo/Séminaire/Exercices seminaire.md	
+++ b/Algo/Séminaire/Exercices seminaire.md	
@@ -499,13 +499,13 @@ let is_perfect n =
 	if n < 1 then
 		invalid_arg "is_perfect: undefinded for n < 1"
 	else 
-		let rec perfect d =
+		let rec perfect n d =
 			if n mod d = 0 then
 			else if d*d > n then
 				true
 			else
 				perfect (d + 1) 
-		in perfect d;;
+		in perfect n d;;
 ```
 ## Hanoi
 ```Ocaml