Biocaml_std.StringMap.add_with

let add_with x f m =
add x (f (find x m)) m

AltStyle によって変換されたページ (->オリジナル) /