我定义了一些类型如下:
module SMap = Map.Make(String)
type s =
{ t: int
fa: int list }
type t = s SMap.t
我想为对应的元素编写一个函数modify
添加100
到列表中。以下代码有效:fa
key
let modify (key: String) (x: t) =
let a = SMap.find key x in
SMap.add key { a with fa = a.fa @ [100] } (SMap.remove key x)
但是,删除和添加元素对我来说似乎是多余的......有谁能告诉我是否有更好的方法来直接修改它?