Untitled

mail@pastecode.io avatar
unknown
ocaml
2 years ago
100 B
0
Indexable
Never
exception NoneValue

let rec option_map f = function
    None -> raise NoneValue
  | Some x -> f x;;