ocaml - OCaml 中列表的长度

Question

如何获取列表中最长子列表的长度？我花了很多时间在这上面，但我没有任何线索。

例如:

Function([[1;2];[1;2;3];[]]) 

返回 3

Answer 1

我对 OCaml 很生疏，但 List.fold_left 应该足够了:

List.fold_left (fun a b -> Pervasives.max a (List.length b)) 0 [[1;2];[1;2;3];[]]

我现在无法测试代码，自从我上次使用 OCaml(版本 3.XX)以来已经有很长时间了，所以语法可能有点不同，但这种方法确实有效:你通过折叠一个函数将当前最大值和当前子列表作为输入，返回两者之间的最大值。