lgallet/epicours
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Louis Gallet 2023-09-15 16:35:51 +02:00
parent a3da4b79e4
commit 8e290a1e04
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Algo/Séminaire/Exercices seminaire.md
View File

@ -375,7 +375,12 @@ let rec puissance x n =
else else
x*puissance x (n-1);; x*puissance x (n-1);;
let puissance_better x n = let rec puissance_better x n =
let rec pb = function 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;;
``` ```