match m with
let remove_first_two = function
| (h1 :: h2 :: t) -> List.rev
| _ -> raise (Invalid_argument "invalid list")
in
let
match t with
| h :: t -> List.rev
|_ -> raise (Invalid_argument "invalid list")
in
Re: Untitled 
From Toxic Camel, 3 Years ago, written in OCaml (Objective Caml).
Embed
let matrix m==
match m with
let remove_first_two = function
| (h1 :: h2 :: t) -> List.revtt
| _ -> raise (Invalid_argument "invalid list")
in
letaux t =remove_last = function
match t with
| h :: t -> List.revtt
|_ -> raise (Invalid_argument "invalid list")
inaux mremove_last (remove_first_two m)