Hi everyone,
I have an interface Lcon that is used for creating a dictionnary:
module M = struct
include Map.Make (Char)
let to_iter s =
fun k ->
iter (fun key item -> k (key, item)) s
end
type t = {
eow : bool;
words : t M.t;
}
let empty = {
eow = false;
words = M.empty
}
Now I want to create a function that is for adding a word in the dictionnary:
add word lexicon
val add : string -> t -> t
How can I do this function?
Thank you in advance