Ocaml 双哈希表

如何解决Ocaml 双哈希表

我一直在寻找一种在 Ocaml 中使用双哈希表的方法，但找不到。我想做的是：

Hash: (("a",1),("b",2),...) ，这里提到的所有元素都不会重复，比如“a”不会再出现，2也不会。

所以如果我找到一个像 [1,"b",2,"a",...] 这样的数组，我可以用它的键或值替换那些出现的数字和字母：["a",1,...] 。

谢谢！

解决方法

库容器数据有 CCBijections。

如果你想要一个可变版本，你可以用两个哈希表配对

module Table: sig
  type (!'left,!'right) t
  (* or before OCaml 4.12:
     type (!'left,!'right) t
  *) 
  val add: 'left ->'right -> ('left,'right) t -> unit
  ...
end = struct
  type ('a,'b) t = {left:('a,'b) Hashtbl.t; right:('b,'a) Hashtbl.t }
  let add left right tbl =
    Hashtbl.add tbl.left left right;
    Hashtbl.add tbl.right right left
    ...
end