OCaml：列表清单

Question

我需要遍历ocaml中的列表列表。我如何遍历列表的列表比较每个列表中的每个元素为零？如果元素大于零，则返回false并停止递归。

功能必须有签名： - “数组” INT名单列表>布尔

使用请不要告诉我的方式或关键字“in”。任何帮助将是伟大的！

Answer 1

let all_lte_zero xss = List.for_all (fun xs -> List.for_all (fun x -> x <= 0) xs) xss;; 

根据ocaml文档，for_all p [a1; ...; an]检查列表中的所有元素是否满足谓词p。

因此，如果任何元素大于0，则谓词fun x -> x <= 0将评估为false，因此两个List.for_all都将评估为false。