Ocaml合并哈希表

问题描述

我想在 Ocaml 中合并两个相同类型的哈希表，以便将它们的信息存储在一个表中。想象一下，类似于：

  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