vault backup: 2023-09-29 15:45:23

2023-09-29 15:45:23 +02:00 · 2023-09-29 15:45:23 +02:00 · 39086747da
commit 39086747da
parent 836868d8a2
1 changed files with 3 additions and 5 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -501,12 +501,10 @@ let is_perfect n =
 	else 
 		let rec perfect d =
 			if n mod d = 0 then
-				if d*d > n then
-					true
-				else
-					perfect (d + 1)
+			else if d*d > n then
+				true
 			else
-				 
+				perfect (d + 1) 
 		in perfect d;;
 ```
 ## Hanoi