simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 11:15:31 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add iter bench for iterators.

Browse source
This commit is contained in:
Drup 2014-12-02 01:02:38 +01:00
parent 24f8066999
commit c6f585955a
1 changed files with 24 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
benchs/run_benchs.ml
View file

@ -506,10 +506,34 @@ module Iter = struct
"klist.flat_map", klist, (); "klist.flat_map", klist, ();
] ]
let bench_iter n =
let seq () =
let i = ref 2 in
CCSequence.(
1 -- n |> iter (fun x -> i := !i * x)
)
and gen () =
let i = ref 2 in
CCGen.(
1 -- n |> iter (fun x -> i := !i * x)
)
and klist () =
let i = ref 2 in
CCKList.(
1 -- n |> iter (fun x -> i := !i * x)
)
in
CCBench.throughputN 3
[ "sequence.iter", seq, ();
"gen.iter", gen, ();
"klist.iter", klist, ();
]
let () = CCBench.register CCBench.( let () = CCBench.register CCBench.(
"iter" >::: "iter" >:::
[ "fold" >:: with_int bench_fold [100; 1_000; 10_000; 1_000_000] [ "fold" >:: with_int bench_fold [100; 1_000; 10_000; 1_000_000]
; "flat_map" >:: with_int bench_flat_map [1_000; 10_000] ; "flat_map" >:: with_int bench_flat_map [1_000; 10_000]
; "iter" >:: with_int bench_iter [1_000; 10_000]
]) ])
end end
@ -608,5 +632,3 @@ end
let () = let () =
CCBench.run_main () CCBench.run_main ()