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

compare persistent hashtables to regular hashtables, too

Browse source
This commit is contained in:
Simon Cruanes 2015-12-14 15:13:06 +01:00
parent 9cddc2bcf1
commit ca4f789967
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
benchs/run_benchs.ml
View file

@ -582,8 +582,9 @@ module Tbl = struct
; "find_string" @>> app_ints bench_find_string [10; 20; 100; 1_000; 10_000] ; "find_string" @>> app_ints bench_find_string [10; 20; 100; 1_000; 10_000]
]); ]);
B.Tree.register ("tbl_persistent" @>>> B.Tree.register ("tbl_persistent" @>>>
let l_int = [persistent_hashtbl Int; persistent_hashtbl_ref Int] in (* we also compare to the regular Hashtbl, as a frame of reference *)
let l_str = [persistent_hashtbl Str; persistent_hashtbl_ref Str] in let l_int = [persistent_hashtbl Int; persistent_hashtbl_ref Int; hashtbl_make Int ] in
let l_str = [persistent_hashtbl Str; persistent_hashtbl_ref Str; hashtbl_make Str ] in
[ "add_int" @>> app_ints (bench_add_to l_int) [10; 100; 1_000; 10_000;] [ "add_int" @>> app_ints (bench_add_to l_int) [10; 100; 1_000; 10_000;]
; "find_int" @>> app_ints ; "find_int" @>> app_ints
(bench_find_to (List.map find_of_mut l_int)) (bench_find_to (List.map find_of_mut l_int))