如何在prolog中查找二维数组中的最大数量？

Question

例如，我有这样的序言二维数组：

[1 ,2 ,3]. 
[4 ,1 ,3]. 
[1 ,3 ,4]. 

如何找到在这个二维数组最大数量？ （这是“4”）

（所以我可以写一些代码，检查是否max为偶数或奇数，返回“真” /“假”为我的序言功能）

Answer 1

假设你代表矩阵列表的列表，你有一个谓词来获取列表的最大值（这里，我用max_list/2从SWI-Prolog的），你可以做这样的：

max_matrix(L, M) :- 
    maplist(max_list, L, Ms), 
    max_list(Ms, M). 

边缘案件和其他怪癖留给你...