2017-03-05 19 views

答えて

1

ある

リコール。あなたはまた、ファンクタを拡張することにより、一般的な定義を持つことができます

module M = Map.Make(String) 

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

:: 'モジュールのマイマップ(:Map.OrderedType O)を単一のマップ・モジュール(すなわち、単一キータイプ)のために、このような何かをバージョンを実装することができます= struct include Map.Make(O)find_with_defaultにするdfltマップキー= Not_found - > dflt end'でマップキーを検索しよう – Virgile