RosettaCodeData/Task/Null-object/OCaml/null-object-2.ml

4 lines
67 B
OCaml

match v with
| None -> "unbound value"
| Some _ -> "bounded value"