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

benchmark

Browse source
This commit is contained in:
Simon Cruanes 2015-03-24 13:49:25 +01:00
parent 4c22a770f8
commit 3b3a697168
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
benchs/run_benchs.ml
View file

@ -353,6 +353,12 @@ module Tbl = struct
ignore (Array.get a i); ignore (Array.get a i);
done done
let persistent_array_find a =
fun n ->
for i = 0 to n-1 do
ignore (CCPersistentArray.get a i);
done
let imap_find m = let imap_find m =
fun n -> fun n ->
for i = 0 to n-1 do for i = 0 to n-1 do
@ -370,7 +376,8 @@ module Tbl = struct
let h' = hashtbl_add n in let h' = hashtbl_add n in
let h'' = ihashtbl_add n in let h'' = ihashtbl_add n in
let h''''' = ipersistenthashtbl_add n in let h''''' = ipersistenthashtbl_add n in
let a = Array.init n (fun i -> string_of_int i) in let a = Array.init n string_of_int in
let pa = CCPersistentArray.init n string_of_int in
let m = imap_add n in let m = imap_add n in
let h'''''' = icchashtbl_add n in let h'''''' = icchashtbl_add n in
B.throughputN 3 [ B.throughputN 3 [
@ -379,6 +386,7 @@ module Tbl = struct
"ihashtbl_find", (fun () -> ihashtbl_find h'' n), (); "ihashtbl_find", (fun () -> ihashtbl_find h'' n), ();
"ipersistenthashtbl_find", (fun () -> ipersistenthashtbl_find h''''' n), (); "ipersistenthashtbl_find", (fun () -> ipersistenthashtbl_find h''''' n), ();
"array_find", (fun () -> array_find a n), (); "array_find", (fun () -> array_find a n), ();
"persistent_array_find", (fun () -> persistent_array_find pa n), ();
"imap_find", (fun () -> imap_find m n), (); "imap_find", (fun () -> imap_find m n), ();
"cchashtbl_find", (fun () -> icchashtbl_find h'''''' n), (); "cchashtbl_find", (fun () -> icchashtbl_find h'''''' n), ();
] ]