simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2026-03-07 21:27:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

added FHashtbl to benchmarks

Browse source
This commit is contained in:
Simon Cruanes 2013-03-07 15:01:10 +01:00
parent bba6da0bde
commit 6b314e4b37
1 changed files with 38 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

43
tests/benchs.ml
View file

@ -69,6 +69,12 @@ module IFlatHashtbl = FlatHashtbl.Make(struct
let hash i = i let hash i = i
end) end)
module IFHashtbl = FHashtbl.Make(struct
type t = int
let equal i j = i = j
let hash i = i
end)
let phashtbl_add n = let phashtbl_add n =
let h = PHashtbl.create 50 in let h = PHashtbl.create 50 in
for i = n downto 0 do for i = n downto 0 do
@ -90,19 +96,27 @@ let ihashtbl_add n =
done; done;
h h
let ifhashtbl_add n = let iflathashtbl_add n =
let h = IFlatHashtbl.create 50 in let h = IFlatHashtbl.create 50 in
for i = n downto 0 do for i = n downto 0 do
IFlatHashtbl.replace h i i; IFlatHashtbl.replace h i i;
done; done;
h h
let ifhashtbl_add n =
let h = ref (IFHashtbl.empty 32) in
for i = n downto 0 do
h := IFHashtbl.replace !h i i;
done;
!h
let _ = let _ =
Format.printf "----------------------------------------@."; Format.printf "----------------------------------------@.";
let res = Bench.bench_n let res = Bench.bench_n
["phashtbl_add", (fun n -> ignore (phashtbl_add n)); ["phashtbl_add", (fun n -> ignore (phashtbl_add n));
"hashtbl_add", (fun n -> ignore (hashtbl_add n)); "hashtbl_add", (fun n -> ignore (hashtbl_add n));
"ihashtbl_add", (fun n -> ignore (ihashtbl_add n)); "ihashtbl_add", (fun n -> ignore (ihashtbl_add n));
"iflathashtbl_add", (fun n -> ignore (iflathashtbl_add n));
"ifhashtbl_add", (fun n -> ignore (ifhashtbl_add n)); "ifhashtbl_add", (fun n -> ignore (ifhashtbl_add n));
] ]
in in
@ -138,7 +152,7 @@ let ihashtbl_replace n =
done; done;
h h
let ifhashtbl_replace n = let iflathashtbl_replace n =
let h = IFlatHashtbl.create 50 in let h = IFlatHashtbl.create 50 in
for i = 0 to n do for i = 0 to n do
IFlatHashtbl.replace h i i; IFlatHashtbl.replace h i i;
@ -148,12 +162,23 @@ let ifhashtbl_replace n =
done; done;
h h
let ifhashtbl_replace n =
let h = ref (IFHashtbl.empty 32) in
for i = 0 to n do
h := IFHashtbl.replace !h i i;
done;
for i = n downto 0 do
h := IFHashtbl.replace !h i i;
done;
!h
let _ = let _ =
Format.printf "----------------------------------------@."; Format.printf "----------------------------------------@.";
let res = Bench.bench_n let res = Bench.bench_n
["phashtbl_replace", (fun n -> ignore (phashtbl_replace n)); ["phashtbl_replace", (fun n -> ignore (phashtbl_replace n));
"hashtbl_replace", (fun n -> ignore (hashtbl_replace n)); "hashtbl_replace", (fun n -> ignore (hashtbl_replace n));
"ihashtbl_replace", (fun n -> ignore (ihashtbl_replace n)); "ihashtbl_replace", (fun n -> ignore (ihashtbl_replace n));
"iflathashtbl_replace", (fun n -> ignore (iflathashtbl_replace n));
"ifhashtbl_replace", (fun n -> ignore (ifhashtbl_replace n)); "ifhashtbl_replace", (fun n -> ignore (ifhashtbl_replace n));
] ]
in in
@ -180,17 +205,24 @@ let ihashtbl_find h =
ignore (IHashtbl.find h (round_n i)); ignore (IHashtbl.find h (round_n i));
done done
let ifhashtbl_find h = let iflathashtbl_find h =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n do
ignore (IFlatHashtbl.find h (round_n i)); ignore (IFlatHashtbl.find h (round_n i));
done done
let ifhashtbl_find h =
fun n ->
for i = 0 to n do
ignore (IFHashtbl.find h (round_n i));
done
let _ = let _ =
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 h''' = ifhashtbl_add my_len in let h''' = iflathashtbl_add my_len in
let h'''' = ifhashtbl_add my_len in
List.iter (fun n -> List.iter (fun n ->
Format.printf "----------------------------------------@."; Format.printf "----------------------------------------@.";
Format.printf "try on size %d@.@.@." n; Format.printf "try on size %d@.@.@." n;
@ -198,6 +230,7 @@ let _ =
"phashtbl_find", (fun () -> phashtbl_find h n); "phashtbl_find", (fun () -> phashtbl_find h n);
"hashtbl_find", (fun () -> hashtbl_find h' n); "hashtbl_find", (fun () -> hashtbl_find h' n);
"ihashtbl_find", (fun () -> ihashtbl_find h'' n); "ihashtbl_find", (fun () -> ihashtbl_find h'' n);
"ifhashtbl_find", (fun () -> ifhashtbl_find h''' n); "iflathashtbl_find", (fun () -> iflathashtbl_find h''' n);
"ifhashtbl_find", (fun () -> ifhashtbl_find h'''' n);
]) ])
[10;20;100;1000;10000;100000] [10;20;100;1000;10000;100000]