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

vault backup: 2023-09-25 13:35:25

Browse Source
This commit is contained in:
Louis Gallet 2023-09-25 13:35:25 +02:00
parent 4d30f6a9c6
commit 58d77a9418
Signed by: lgallet
SSH Key Fingerprint: SHA256:qnW7pk4EoMRR0UftZLZQKSMUImbEFsiruLC7jbCHJAY
1 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -383,7 +383,7 @@ let rec puissance_better x n =
else else
let pb_odd = puissance_better x (n/2) * n in pb_odd*pb_odd;; let pb_odd = puissance_better x (n/2) * n in pb_odd*pb_odd;;
(*Correction*) (*Correction v1*)
let power x n = match n with let power x n = match n with
| 0 -> (match x with | 0 -> (match x with
| 0. -> failwith "power 0^0 impossible" | 0. -> failwith "power 0^0 impossible"
@ -395,5 +395,19 @@ let power x n = match n with
| _ -> (let rec p = function | _ -> (let rec p = function
| 0 -> 1. | 0 -> 1.
| n -> x*.p(n-1) in p n) | n -> x*.p(n-1) in p n)
;; ;;
(*Correction v2*)
let power x n = match n with
| 0 -> (match x with
| 0. -> failwith "power 0^0 impossible"
| _ -> 1.)
| _ -> (match x with
| 1. -> 1.
| 0. -> 0.
| -1. -> if n mod 2 = 0 then 1. else -1.)
| _ -> (let rec p = function
| 0 -> 1.
| n -> x*.p(n-1) in p n)
;;
``` ```