我正在测试在type matrix = float list list中转换矩阵( OCaml )的函数,下面是我的代码:
(* get the first column of the matrix *)
let rec get_column (a: matrix): float list =
match a with
| [] -> []
| x :: xs ->
(match x with
| [] -> []
| h :: t -> h :: get_column xs)
(* get the res