我有一个列表列表，我需要找到其中最长的一个。如果有多个长度相同，则返回的长度相同。谢谢。

最佳答案

这是一个通用谓词，它扫描列表以查找由给定目标定义的单个成员。

select_element(Goal, [Head | Tail], Selected) :-
    select_element(Goal, Tail, Head, Selected).


select_element(_Goal, [], Selected, Selected).

select_element(Goal, [Head | Tail], Current, FinalSelected) :-
    call(Goal, Head, Current, Selected),
    select_element(Goal, Tail, Selected, FinalSelected).

假设您定义了一个谓词

get_bigger_number(N1, N2, N) :-
    N is max(N1, N2).

现在你可以执行:

?- select_element(get_bigger_number, [5, 1, -2, 10, 3.2, 0], Selected).

Selected = 10

所以你现在需要做的就是定义一个谓词get_longer_list(L1, L2, L), 并使用它代替 get_bigger_number/3。

当然，使用像 select_element/3 这样的通用谓词可能效率不高。例如，您应该尽量避免多次计算同一个列表的长度，因为这种计算在 Prolog 中很慢(至少如果以标准方式在 Prolog 中实现的话)。

https://stackoverflow.com/questions/1660152/