diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add identical_member/2

Browse Source
This commit is contained in:
Vítor Santos Costa 2015-10-22 12:01:20 +01:00
parent f8836ec1b2
commit ad603a53ed
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
pl/lists.yap
View File

@ -37,6 +37,18 @@ to test for an element or to enumerate all the elements by backtracking.
lists:member(X,[X|_]). lists:member(X,[X|_]).
lists:member(X,[_|L]) :- lists:member(X,[_|L]) :-
lists:member(X,L). lists:member(X,L).
%% @pred identical_member(?Element, ?Set) is nondet
%
% identical_member holds true when Set is a list, and Element is
% exactly identical to one of the elements that occurs in it.
lists:identical_member(X,[Y|M]) :-
(
X == Y
;
M \= [], lists:identical_member(X,M)
).
/** @pred append(? _List1_,? _List2_,? _List3_) /** @pred append(? _List1_,? _List2_,? _List3_)