Haskell的Map.findwithfaultfault ocaml相当于

Question

OCaml中是否有相当于Haskell的findWithDefault函数？

回想findWithDefault的类型是 findWithDefault :: Ord k => a -> k -> Map k a -> a

Answer 1

有一个在OCaml的标准地图库没有这样的功能。您可以实现单个地图模块版本（即单密钥类型）是这样的：

module M = Map.Make(String) 

let find_with_default dflt map key = 
    try M.find map key with Not_found -> dflt