change exo 5 to floating point operations (dm5)

This commit is contained in:
Arkitu 2025-12-19 13:01:37 +00:00
parent 71f495ba00
commit 8d62abed48

View File

@ -49,8 +49,8 @@ let bitonique t =
(* Exercice 5 *) (* Exercice 5 *)
let psrn ta tb = Array.fold_left let psrn ta tb = Array.fold_left
(fun acc (a,b) -> acc + (a*b)) (fun acc (a,b) -> acc +. (a *. b))
0 0.
(Array.map2 (Array.map2
(fun a b -> a,b) (fun a b -> a,b)
ta ta