vault backup: 2023-09-15 16:35:51

2023-09-15 16:35:51 +02:00
parent a3da4b79e4
commit 8e290a1e04
1 changed files with 8 additions and 3 deletions
--- a/Algo/Séminaire/Exercices
+++ b/Algo/Séminaire/Exercices
@ -375,7 +375,12 @@ let rec puissance x n =
 	else
 		x*puissance x (n-1);;

-let puissance_better x n =
-	let rec pb = function
-		
+let rec puissance_better x n =
+	if n = 0 then
+		1
+	else if n mod 2 = 0 then
+		let pb = puissance_better x (n/2) in pb*pb
+	else
+		let pb_odd = puissance_better x (n/2) * n in pb_odd*pb_odd;;
+	
 ```