prolog - 如何删除简单列表中的重复成员 [序言]

Question

编辑：如何删除简单列表中的重复成员

例如 ：

[a,b,b,b,c,c,e] 在这个列表中是 2 c 和 3 b 我想删除所有重复的成员结果应该是这样的 [a,e]

请记住，我只是为了作业而学习基础知识，并且我正在使用 swish 在线编译器

Answer 1

甚至我最近也开始学习prolog。所以我使用基本功能实现了上述问题。来到我使用的逻辑。

假设如果列表是 [1,2,2,3,3,4]，则创建名为 Duplicate（最初为空）的列表。

1.我们将检查Head元素是否存在于列表的尾部或重复列表中。

2. 如果出现在任一列表中，则将 Head 元素添加到 List Duplicate，现在取出 Head 元素。

3. 否则，如果 tail 和 Duplicate 中不存在，则取出 Head 元素并将其添加到 List Answer。

4.重复以上步骤，直到原来的列表变空。

takeout(X,[X|R],R).
takeout(X,[F|Fs],[F|S]):- takeout(X,Fs,S).
/* takeout function is used to delete
given element from the list.*/

ap([],L,L).
ap(L,[],L).
ap([H|T],L,[H|Z]):- ap(T,L,Z).
/* ap function is used to append
elements to a list. */


unique([],_,Z):- write(Z),!.
unique([H|T],X,Z):-  ( member(H,T) ; member(H,X) ) , ap([H],X,Xs) , takeout(H,[H|T],B) , unique(B,Xs,Z).
unique([H|T],X,Z):- \+member(H,T) , \+member(H,X) , ap([H],Z,Zs) , takeout(H,[H|T],Ts) , unique(Ts,X,Zs).

输出

Answer 2

我已经编辑了我以前的代码。我之前的代码以相反的顺序给出了输出。

我在这里使用了 cut ，这样它就不会回溯外卖功能的所有可能性。希望这对您有所帮助。

我认为这是您正在寻找的解决方案。

takeout(X,[X|R],R).
takeout(X,[F|Fs],[F|S]):- takeout(X,Fs,S).
/* takeout function is used to delete
given element from the list.*/

ap([],L,L).
ap(L,[],L).
ap([H|T],L,[H|Z]):- ap(T,L,Z).
/* ap function is used to append
elements to a list. */


unique([X],_,[X]).
unique([H|T],X,Z):-  ( member(H,T) ; member(H,X) ) , ap([H],X,Xs) , takeout(H,[H|T],B) ,!, unique(B,Xs,Z).
unique([H|T],X,[H|Z]):- \+member(H,T) , \+member(H,X) , takeout(H,[H|T],Ts) ,!, unique(Ts,X,Z).

输出

?- unique([1,2,2,3,3,4],[],M).

M= [1,4]
false

用于添加列表的元素

sum([H,H1|T],Z):- Z1 is H+H1 , sum([Z1|T],Z).
sum([X],X).

?- sum([1,2,3],Z).
   Z=6
   false