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

Merge pull request #1 from nbraud/multiset

Browse source 
multiSet: Add contains function
This commit is contained in:
Simon Cruanes 2013-07-06 15:17:58 -07:00
commit f93c5865a4
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
multiSet.ml
View file

@ -51,6 +51,8 @@ module type S = sig
val diff : t -> t -> t val diff : t -> t -> t
val contains : t -> t -> bool
val compare : t -> t -> int val compare : t -> t -> int
val equal : t -> t -> bool val equal : t -> t -> bool
@ -131,6 +133,11 @@ module Make(O : Set.OrderedType) = struct
else None) else None)
m1 m2 m1 m2
let contains m1 m2 =
try
M.for_all (fun x c -> M.find x m1 >= c) m2
with Not_found -> false
let compare m1 m2 = let compare m1 m2 =
M.compare (fun x y -> x - y) m1 m2 M.compare (fun x y -> x - y) m1 m2

2
multiSet.mli
View file

@ -51,6 +51,8 @@ module type S = sig
val diff : t -> t -> t val diff : t -> t -> t
val contains : t -> t -> bool
val compare : t -> t -> int val compare : t -> t -> int
val equal : t -> t -> bool val equal : t -> t -> bool