OCaml如何使用一套？

Question

我期待着使用一套。 我需要保持整数对，我需要在快速时间内找到对中的对。 我该如何使用套装？ 一些例子？

Answer 1

这是一个小例子。

# module IPSet = Set.Make(struct type t = int * int let compare = compare end);;
module IPSet : sig ... end
# let myset = IPSet.singleton (3, 8);;
val myset : IPSet.t = <abstr>
# IPSet.mem (3,8) myset;;
- : bool = true
# IPSet.mem (8,3) myset;;
- : bool = false