0

我在序言中遇到了一些问题......我需要再次创建一个接收三个列表的函数： elementsToRemove fullList nonRepeatedElements 该函数应该如下所示：

removeRepeatedElements(elementsToRemove, fullList, nonRepeatedElements)

其中 nonRepeatedElements 是一个列表，其中没有 elementsToRemve 和 fullList 中的任何元素。任何人都可以请帮助！这里有点绝望。啊啊

4

2 回答 2

1

SWI-Prolog 有减法（+Set、+Delete、-Result）。

它是这样实现的：

%%  subtract(+Set, +Delete, -Result) is det.
%
%   Delete all elements from `Set' that   occur  in `Delete' (a set)
%   and unify the  result  with  `Result'.   Deletion  is  based  on
%   unification using memberchk/2. The complexity is |Delete|*|Set|.
%
%   @see ord_subtract/3.

subtract([], _, []) :- !.
subtract([E|T], D, R) :-
    memberchk(E, D), !,
    subtract(T, D, R).
subtract([H|T], D, [H|R]) :-
    subtract(T, D, R).

您可以在任何其他 Prolog 中使用该实现......

于 2012-05-17T21:23:37.243 回答
0

好的，根据你的描述，这就是答案：

% base case
sto([],L,[]).

% item isn't found in the other list
sto([H|T],L,[H|T2]):-
\+member(H,L),sto(T,L,T2).

% item is present in the other list
sto([H|T],L,N):-
member(H,L),sto(T,L,N).

member(X,[X|_]).
member(X,[_|T]):-
member(X,T).

所以，sto是主函数，member函数检查元素是否存在于给定列表中

于 2012-05-17T19:27:02.567 回答