问题描述
let two_list = [[1;2;3];
[4;5;6];
[7;8;9]];;
如何在不使用 List 模块的情况下遍历此列表。
解决方法
使用 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