change exo 5 to floating point operations (dm5)

2025-12-19 13:01:37 +00:00 · 2025-12-19 13:01:37 +00:00 · 8d62abed48
commit 8d62abed48
parent 71f495ba00
1 changed files with 2 additions and 2 deletions
--- a/dm5/lib/lib.ml
+++ b/dm5/lib/lib.ml
@ -49,8 +49,8 @@ let bitonique t =

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