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

changed the benchmarks for hashtables

Browse source
This commit is contained in:
Simon Cruanes 2013-04-05 16:58:29 +02:00
parent 1e35fc7ecb
commit e924d0639a
1 changed files with 34 additions and 34 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

68
tests/benchs.ml
View file

@ -174,70 +174,70 @@ let _ =
Bench.summarize 1. res Bench.summarize 1. res
let my_len = 250 let my_len = 250
let round_n n = abs ((abs n) mod my_len)
let phashtbl_find h = let phashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (PHashtbl.find h (round_n i)); ignore (PHashtbl.find h i);
done done
let hashtbl_find h = let hashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (Hashtbl.find h (round_n i)); ignore (Hashtbl.find h i);
done done
let ihashtbl_find h = let ihashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (IHashtbl.find h (round_n i)); ignore (IHashtbl.find h i);
done done
let iflathashtbl_find h = let iflathashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (IFlatHashtbl.find h (round_n i)); ignore (IFlatHashtbl.find h i);
done done
let ifhashtbl_find h = let ifhashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (IFHashtbl.find h (round_n i)); ignore (IFHashtbl.find h i);
done done
let ipersistenthashtbl_find h = let ipersistenthashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (IPersistentHashtbl.find h (round_n i)); ignore (IPersistentHashtbl.find h i);
done done
let skiplist_find l = let skiplist_find l =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n-1 do
ignore (SkipList.find l (round_n i)); ignore (SkipList.find l i);
done done
let _ = let _ =
let h = phashtbl_add my_len in List.iter
let h' = hashtbl_add my_len in (fun len ->
let h'' = ihashtbl_add my_len in let h = phashtbl_add len in
let h''' = iflathashtbl_add my_len in let h' = hashtbl_add len in
let h'''' = ifhashtbl_add my_len in let h'' = ihashtbl_add len in
let h''''' = ipersistenthashtbl_add my_len in let h''' = iflathashtbl_add len in
let l = skiplist_add my_len in let h'''' = ifhashtbl_add len in
List.iter (fun n -> let h''''' = ipersistenthashtbl_add len in
Format.printf "----------------------------------------@."; let l = skiplist_add len in
Format.printf "try on size %d@.@.@." n; Format.printf "----------------------------------------@.";
Bench.bench [ Format.printf "try on size %d@.@.@." len;
"phashtbl_find", (fun () -> phashtbl_find h n); Bench.bench [
"hashtbl_find", (fun () -> hashtbl_find h' n); "phashtbl_find", (fun () -> phashtbl_find h len);
"ihashtbl_find", (fun () -> ihashtbl_find h'' n); "hashtbl_find", (fun () -> hashtbl_find h' len);
"iflathashtbl_find", (fun () -> iflathashtbl_find h''' n); "ihashtbl_find", (fun () -> ihashtbl_find h'' len);
"ifhashtbl_find", (fun () -> ifhashtbl_find h'''' n); "iflathashtbl_find", (fun () -> iflathashtbl_find h''' len);
"ipersistenthashtbl_find", (fun () -> ipersistenthashtbl_find h''''' n); "ifhashtbl_find", (fun () -> ifhashtbl_find h'''' len);
"skiplist_find", (fun () -> skiplist_find l n); "ipersistenthashtbl_find", (fun () -> ipersistenthashtbl_find h''''' len);
]) "skiplist_find", (fun () -> skiplist_find l len);
])
[10;20;100;1000;10000;100000] [10;20;100;1000;10000;100000]
(** {2 Sequence/Gen} *) (** {2 Sequence/Gen} *)