Question

我正在尝试找出如何删除Prolog中列表列表中的重复元素。

E.g：
输入：[[1,2,3],[5,6],[3,4],[1,7]]

预期输出：[[1,2,3],[5,6],[4],[7]]

我知道我可以使用谓词sort/2删除单个列表中的重复项，但是如何让它在多个列表中工作？

Answer 1

这是我的尝试。希望你已经做了一些尝试来解决它并从中学习......无论如何，如果你还没有想出任何东西，请看看下面的代码：

 remove_dupl(InL, OutL):- remove_dupl(InL, [], OutL1),remove_empty(OutL1,OutL).

remove_dupl([],_,[]).
remove_dupl([H|T],L,[[H1]|T2]):-
              H=[H1], \+member(H1,L), 
              remove_dupl(T,[H1|L],T2).
remove_dupl([H|T],L,[[H1|T2]|T3]):- 
              H=[H1|T1], \+member(H1,L), 
              remove_dupl([T1|T],[H1|L],[T2|T3]).
remove_dupl([H|T],L,T2):- 
              H=[H1|T1], member(H1,L), 
              remove_dupl([T1|T],L,T2).
remove_dupl([H|T],L,[[]|T2]):- 
              H=[H1], member(H1,L), 
              remove_dupl(T,L,T2).

remove_empty([],[]).
remove_empty([[]|T],T1):-remove_empty(T,T1).
remove_empty([[H|T]|T1],[[H|T]|T2]):-remove_empty(T1,T2).

也许不是最有效的解决方案。例如：

?- remove_dupl([[1,2,3],[5,6],[3,4],[1,7]],L).
L = [[1, 2, 3], [5, 6], [4], [7]] ;
false.

从Prolog中删除列表中的重复元素

1 个答案: