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

add CCPersistentHashtbl.stats

Browse source
This commit is contained in:
Simon Cruanes 2015-10-21 22:48:51 +02:00
parent 15d5da628d
commit 54c2e4541e
2 changed files with 25 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
src/data/CCPersistentHashtbl.ml
View file

@ -129,6 +129,10 @@ module type S = sig
val pp : key printer -> 'a printer -> 'a t printer
val print : key formatter -> 'a formatter -> 'a t formatter
val stats : _ t -> Hashtbl.statistics
(** Statistics on the internal table.
@since NEXT_RELEASE *)
end
(*$inject
@ -625,5 +629,22 @@ module Make(H : HashedType) : S with type key = H.t = struct
Format.fprintf fmt "%a -> %a" pp_k k pp_v v
);
Format.pp_print_string fmt "}"
let stats t =
let a = reroot_ t in
let max_bucket_length =
Array.fold_left (fun n b -> max n (buck_length_ b)) 0 a in
let bucket_histogram = Array.make (max_bucket_length+1) 0 in
Array.iter
(fun b ->
let l = buck_length_ b in
bucket_histogram.(l) <- bucket_histogram.(l) + 1
) a;
{Hashtbl.
num_bindings=t.length;
num_buckets=Array.length a;
max_bucket_length;
bucket_histogram;
}
end

4
src/data/CCPersistentHashtbl.mli
View file

@ -136,6 +136,10 @@ module type S = sig
val pp : key printer -> 'a printer -> 'a t printer
val print : key formatter -> 'a formatter -> 'a t formatter
val stats : _ t -> Hashtbl.statistics
(** Statistics on the internal table.
@since NEXT_RELEASE *)
end
(** {2 Implementation} *)