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

update of benchmark

Browse source
This commit is contained in:
Simon Cruanes 2013-03-05 18:54:02 +01:00
parent 8da095f76b
commit 588e7bece9
1 changed files with 19 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
tests/benchs.ml
View file

@ -77,28 +77,36 @@ let _ =
Bench.summarize 1. res Bench.summarize 1. res
let my_len = 250 let my_len = 250
let round_n n = abs (n mod my_len) let round_n n = abs ((abs n) mod my_len)
let phashtbl_find h = let phashtbl_find h =
fun n -> fun n ->
ignore (PHashtbl.find h (round_n n)) for i = 0 to n do
ignore (PHashtbl.find h (round_n i));
done
let hashtbl_find h = let hashtbl_find h =
fun n -> fun n ->
ignore (Hashtbl.find h (round_n n)) for i = 0 to n do
ignore (Hashtbl.find h (round_n i));
done
let ihashtbl_find h = let ihashtbl_find h =
fun n -> fun n ->
ignore (IHashtbl.find h (round_n n)) for i = 0 to n do
ignore (IHashtbl.find h (round_n i));
done
let _ = let _ =
Format.printf "----------------------------------------@.";
let h = phashtbl_add my_len in let h = phashtbl_add my_len in
let h' = hashtbl_add my_len in let h' = hashtbl_add my_len in
let h'' = ihashtbl_add my_len in let h'' = ihashtbl_add my_len in
let res = Bench.bench_n List.iter (fun n ->
["phashtbl_mem", phashtbl_find h; Format.printf "----------------------------------------@.";
"hashtbl_mem", hashtbl_find h'; Format.printf "try on size %d@.@.@." n;
"ihashtbl_mem", ihashtbl_find h'';] Bench.bench [
in "phashtbl_find", (fun () -> phashtbl_find h n);
Bench.summarize 1. res "hashtbl_find", (fun () -> hashtbl_find h' n);
"ihashtbl_find", (fun () -> ihashtbl_find h'' n);
])
[10;20;100;1000;10000;100000]