update benchmarks

This commit is contained in:
Simon Cruanes 2016-12-25 20:15:17 +01:00
parent e6af6792d2
commit 4c6cd1560c

View file

@ -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