11 lines
181 B
OCaml
11 lines
181 B
OCaml
|
function
|
||
|
|
| Some Some Some x -> x
|
||
|
|
(* | None None None x -> x *)
|
||
|
|
| _ -> assert false;;
|
||
|
|
|
||
|
|
fun None None None -> ();;
|
||
|
|
|
||
|
|
fun (Some None) None None -> ();;
|
||
|
|
|
||
|
|
fun Some None None None -> ();;
|