prolog - 如何在列表 Prolog 中查找相同元素的数量？

Question

我有一个关于这个话题的问题，

我知道 Prolog 的列表像 [head, (tail)] 一样工作，但是是否有任何函数或神奇的触摸(示例代码)来查找列表中的元素数量？。有什么方法可以获取列表中相同元素的数量，然后比较列表或其中的唯一元素？

Answer 1

一种方式如下:

get_uniq(List,Uniq) :-
    select(Uniq,List,SubList),   % chose an item from the list
    \+ member(Uniq,SubList).     % make sure it doesn't have a pair

%% 稍后添加

您可以获得独特元素的完整列表:

findall(N,get_uniq([2,1,4,3,2,5,1,4,3],N), Ns).