change exo 5 to floating point operations (dm5)
This commit is contained in:
parent
71f495ba00
commit
8d62abed48
@ -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
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user