From 8d62abed48af7ed3c815e4933635d2eb1d0146e9 Mon Sep 17 00:00:00 2001
From: Arkitu <arkitu@noreply.localhost>
Date: Fri, 19 Dec 2025 13:01:37 +0000
Subject: [PATCH] change exo 5 to floating point operations (dm5)

---
 dm5/lib/lib.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/dm5/lib/lib.ml b/dm5/lib/lib.ml
index cc347d6..2ffe31a 100644
--- 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