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

Simplify further benchmark names

Browse source
This commit is contained in:
Christophe Troestler 2014-12-23 13:51:32 +01:00
parent 6d6bfa0362
commit e25d621655
2 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -8,4 +8,5 @@ TAGS
*.docdir *.docdir
setup.log setup.log
setup.data setup.data
setup.exe
qtest* qtest*

14
benchs/run_benchs.ml
View file

@ -12,7 +12,7 @@ module L = struct
else if x mod 5 = 1 then [x;x+1] else if x mod 5 = 1 then [x;x+1]
else [x;x+1;x+2;x+3] else [x;x+1;x+2;x+3]
let bench_flat_map ?(time=2) n = "flat_map" @> lazy( let bench_flat_map ?(time=2) n = "" @> lazy(
let l = CCList.(1 -- n) in let l = CCList.(1 -- n) in
let flatten_map_ l = List.flatten (CCList.map f_ l) let flatten_map_ l = List.flatten (CCList.map f_ l)
and flatten_ccmap_ l = List.flatten (List.map f_ l) in and flatten_ccmap_ l = List.flatten (List.map f_ l) in
@ -28,7 +28,7 @@ module L = struct
let append_ f (l1, l2, l3) = let append_ f (l1, l2, l3) =
ignore (f (f l1 l2) l3) ignore (f (f l1 l2) l3)
let bench_append ?(time=2) n = "append" @> lazy ( let bench_append ?(time=2) n = "" @> lazy (
let l1 = CCList.(1 -- n) in let l1 = CCList.(1 -- n) in
let l2 = CCList.(n+1 -- 2*n) in let l2 = CCList.(n+1 -- 2*n) in
let l3 = CCList.(2*n+1 -- 3*n) in let l3 = CCList.(2*n+1 -- 3*n) in
@ -41,7 +41,7 @@ module L = struct
(* FLATTEN *) (* FLATTEN *)
let bench_flatten ?(time=2) n = "flatten" @> lazy ( let bench_flatten ?(time=2) n = "" @> lazy (
let fold_right_append_ l = let fold_right_append_ l =
List.fold_right List.append l [] List.fold_right List.append l []
and cc_fold_right_append_ l = and cc_fold_right_append_ l =
@ -62,16 +62,16 @@ module L = struct
(* MAIN *) (* MAIN *)
let () = Benchmark.Tree.(register ( let () = Benchmark.Tree.(
"list" @>>> "list" @>>>
[ "flat_map" @>> [ "flat_map" @>>
with_int (bench_flat_map ~time:2) [100; 10_000; 100_00] with_int (bench_flat_map ~time:2) [100; 10_000; 100_00]
; "flatten" @>> ; "flatten" @>>
with_int (bench_flatten ~time:2) [100; 10_000; 100_000] with_int (bench_flatten ~time:2) [100; 10_000; 100_000]
; "append" @>> ; "append" @>>
with_int (bench_append ~time:2) [100; 10_000; 100_000] with_int (bench_append ~time:2) [100; 10_000; 100_000]
] ]
)) |> register)
end end
module Vec = struct module Vec = struct
@ -580,7 +580,7 @@ module Batch = struct
ignore (collect a); ignore (collect a);
a a
let bench_for ~time n = "batch" @> lazy ( let bench_for ~time n = "" @> lazy (
let a = C.(0 -- n) in let a = C.(0 -- n) in
(* debug (* debug
CCPrint.printf "naive: %a\n" (CCArray.pp CCInt.pp) (naive a); CCPrint.printf "naive: %a\n" (CCArray.pp CCInt.pp) (naive a);