From 4c6cd1560c91299df4a8a194edf5c148cd94523a Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Sun, 25 Dec 2016 20:15:17 +0100 Subject: [PATCH] update benchmarks --- bench/benchs.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/bench/benchs.ml b/bench/benchs.ml index af8b5db..2fa414d 100644 --- a/bench/benchs.ml +++ b/bench/benchs.ml @@ -10,10 +10,10 @@ let bench_fold n = 0 -- n |> S.fold (+) 0 |> ignore let bench_flatmap n = - 0 -- n |> S.flatMap (fun i -> i -- (i+5)) |> (fun _ -> ()) + 0 -- n |> S.flat_map (fun i -> i -- (i+5)) |> (fun _ -> ()) let bench_product n = - S.product (0 -- n) (0 -- n) (fun (i,j) -> ()) + S.product (0 -- n) (0 -- n) (fun _ -> ()) let _ = List.iter