OCaml遍历二维列表

Question

例如，如果有一个二维列表:

let two_list = [[1;2;3];
[4;5;6];
[7;8;9]];;

如何在不使用list模块的情况下遍历这个列表。

Answer 1

对于List模块，您可以这样写:

let two_list = [
[1;2;3];
[4;5;6];
[7;8;9]
]
let () =
List.iter (fun l -> List.iter print_int l) two_list

因此，如果您想在不使用List模块的情况下做同样的事情，您所要做的就是编写自己的list_iter函数并使用它代替List.iter:

let two_list = [
[1;2;3];
[4;5;6];
[7;8;9]
]
let rec list_iter f = function
| [] -> ()
| hd::tail -> begin
f hd;
list_iter f tail
end
let () =
list_iter (fun l -> list_iter print_int l) two_list