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

add CCHashconsedSet.hash

Browse source
This commit is contained in:
Simon Cruanes 2015-06-04 21:24:17 +02:00
parent b31c76e18b
commit 4049aa9269
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/data/CCHashconsedSet.ml
View file

@ -60,6 +60,9 @@ module type S = sig
val compare : t -> t -> int val compare : t -> t -> int
(** Fast (arbitrary) comparisontest [O(1)] *) (** Fast (arbitrary) comparisontest [O(1)] *)
val hash : t -> int
(** Fast (arbitrary, deterministic) hash [O(1)] *)
val add : elt -> t -> t val add : elt -> t -> t
val remove : elt -> t -> t val remove : elt -> t -> t
@ -207,6 +210,8 @@ module Make(E : ELT) : S with type elt = E.t = struct
let compare t1 t2 = Pervasives.compare t1.id t2.id let compare t1 t2 = Pervasives.compare t1.id t2.id
let hash t = t.id land max_int
let mem x t = mem_rec_ (E.hash x) x t let mem x t = mem_rec_ (E.hash x) x t
let mk_node_ prefix switch l r = match l.cell, r.cell with let mk_node_ prefix switch l r = match l.cell, r.cell with

3
src/data/CCHashconsedSet.mli
View file

@ -62,6 +62,9 @@ module type S = sig
val compare : t -> t -> int val compare : t -> t -> int
(** Fast (arbitrary) comparisontest [O(1)] *) (** Fast (arbitrary) comparisontest [O(1)] *)
val hash : t -> int
(** Fast (arbitrary, deterministic) hash [O(1)] *)
val add : elt -> t -> t val add : elt -> t -> t
val remove : elt -> t -> t val remove : elt -> t -> t