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

updated benchs with persistentHashtbl

Browse source
This commit is contained in:
Simon Cruanes 2013-03-27 21:47:24 +01:00
parent a82ebf7d59
commit 5553ed4699
1 changed files with 33 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

33
tests/benchs.ml
View file

@ -20,6 +20,12 @@ module IFHashtbl = FHashtbl.Tree(struct
let hash i = i let hash i = i
end) end)
module IPersistentHashtbl = PersistentHashtbl.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
@ -62,6 +68,13 @@ let skiplist_add n =
done; done;
l l
let ipersistenthashtbl_add n =
let h = ref (IPersistentHashtbl.create 32) in
for i = n downto 0 do
h := IPersistentHashtbl.replace !h i i;
done;
!h
let _ = let _ =
Format.printf "----------------------------------------@."; Format.printf "----------------------------------------@.";
let res = Bench.bench_n let res = Bench.bench_n
@ -70,6 +83,7 @@ let _ =
"ihashtbl_add", (fun n -> ignore (ihashtbl_add n)); "ihashtbl_add", (fun n -> ignore (ihashtbl_add n));
"iflathashtbl_add", (fun n -> ignore (iflathashtbl_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));
"ipersistenthashtbl_add", (fun n -> ignore (ipersistenthashtbl_add n));
"skiplist_add", (fun n -> ignore (skiplist_add n)); "skiplist_add", (fun n -> ignore (skiplist_add n));
] ]
in in
@ -125,6 +139,16 @@ let ifhashtbl_replace n =
done; done;
!h !h
let ipersistenthashtbl_replace n =
let h = ref (IPersistentHashtbl.create 32) in
for i = 0 to n do
h := IPersistentHashtbl.replace !h i i;
done;
for i = n downto 0 do
h := IPersistentHashtbl.replace !h i i;
done;
!h
let skiplist_replace n = let skiplist_replace n =
let l = SkipList.create compare in let l = SkipList.create compare in
for i = 0 to n do for i = 0 to n do
@ -143,6 +167,7 @@ let _ =
"ihashtbl_replace", (fun n -> ignore (ihashtbl_replace n)); "ihashtbl_replace", (fun n -> ignore (ihashtbl_replace n));
"iflathashtbl_replace", (fun n -> ignore (iflathashtbl_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));
"ipersistenthashtbl_replace", (fun n -> ignore (ipersistenthashtbl_replace n));
"skiplist_replace", (fun n -> ignore (skiplist_replace n)); "skiplist_replace", (fun n -> ignore (skiplist_replace n));
] ]
in in
@ -181,6 +206,12 @@ let ifhashtbl_find h =
ignore (IFHashtbl.find h (round_n i)); ignore (IFHashtbl.find h (round_n i));
done done
let ipersistenthashtbl_find h =
fun n ->
for i = 0 to n do
ignore (IPersistentHashtbl.find h (round_n i));
done
let skiplist_find l = let skiplist_find l =
fun n -> fun n ->
for i = 0 to n do for i = 0 to n do
@ -193,6 +224,7 @@ let _ =
let h'' = ihashtbl_add my_len in let h'' = ihashtbl_add my_len in
let h''' = iflathashtbl_add my_len in let h''' = iflathashtbl_add my_len in
let h'''' = ifhashtbl_add my_len in let h'''' = ifhashtbl_add my_len in
let h''''' = ipersistenthashtbl_add my_len in
let l = skiplist_add my_len in let l = skiplist_add my_len in
List.iter (fun n -> List.iter (fun n ->
Format.printf "----------------------------------------@."; Format.printf "----------------------------------------@.";
@ -203,6 +235,7 @@ let _ =
"ihashtbl_find", (fun () -> ihashtbl_find h'' n); "ihashtbl_find", (fun () -> ihashtbl_find h'' n);
"iflathashtbl_find", (fun () -> iflathashtbl_find h''' n); "iflathashtbl_find", (fun () -> iflathashtbl_find h''' n);
"ifhashtbl_find", (fun () -> ifhashtbl_find h'''' n); "ifhashtbl_find", (fun () -> ifhashtbl_find h'''' n);
"ipersistenthashtbl_find", (fun () -> ipersistenthashtbl_find h''''' n);
"skiplist_find", (fun () -> skiplist_find l n); "skiplist_find", (fun () -> skiplist_find l n);
]) ])
[10;20;100;1000;10000;100000] [10;20;100;1000;10000;100000]