Ocaml 合并哈希表

Ocaml merge Hash tables

我想在 Ocaml 中合并两个相同类型的散列 table,以便它们的信息存储在一个 table 中。想象一下,像这样:

  type tabType = (string, variable) Hashtbl.t

  let tabExample:tabType = Hashtbl.create 1000 in
  let tab1 = do_stuff tabExample a true in
  let tab2 = do_stuff tabExample a false in
  let tabFinal = tab1@tab2

有什么想法吗?

如果tab1可以被覆盖并且tab2中的条目应该替换tab1中的条目, 这只是一个 fold:

  let merge ~into:tab1 tab2 =
    Hashtbl.fold (fun key elt () -> Hashtbl.replace tab1 key elt) tab2 ();
    tab1