fix med computation

OCamlPro · Aug 2, 2024 · 3d73aad · 3d73aad
1 parent 9fb1f32
commit 3d73aad
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/bench/report/runs.ml b/bench/report/runs.ml
@@ -63,12 +63,11 @@ let max_clock runs =
 
 let median_clock runs =
   let n = List.length runs in
+  let runs = List.sort compare @@ List.map (fun run -> Run.clock run) runs in
   if n = 0 then 0.
   else if n mod 2 = 0 then
-    ( Run.clock (List.nth runs (n / 2))
-    +. Run.clock (List.nth runs ((n / 2) + 1)) )
-    /. 2.
-  else List.nth runs (n / 2) |> Run.clock
+    (List.nth runs (n / 2) +. List.nth runs ((n / 2) + 1)) /. 2.
+  else List.nth runs (n / 2)
 
 let sum_clock runs = List.fold_left (fun sum r -> Run.clock r +. sum) 0. runs