OCaml 遍历二维列表

如何解决OCaml 遍历二维列表

例如如果有一个二维列表：

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