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

delete/3

Browse Source
This commit is contained in:
Vítor Santos Costa 2016-01-31 10:46:35 +00:00
parent c428e2256d
commit cdad87a6fc
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
pl/lists.yap
View File

@ -3,9 +3,7 @@
* @author VITOR SANTOS COSTA <vsc@VITORs-MBP.lan> * @author VITOR SANTOS COSTA <vsc@VITORs-MBP.lan>
* @date Thu Nov 19 09:54:00 2015 * @date Thu Nov 19 09:54:00 2015
* *
* @brief core list operations * @addtogroup lists
*
* @ingroup lists
* @{ * @{
*/ */
@ -73,7 +71,7 @@ lists:append([H|T], L, [H|R]) :-
lists:append(T, L, R). lists:append(T, L, R).
:- set_prolog_flag(source, false). % :- no_source. :- set_prolog_flag(source, true). % :- no_source.
% lists:delete(List, Elem, Residue) % lists:delete(List, Elem, Residue)
% is true when List is a list, in which Elem may or may not occur, and % is true when List is a list, in which Elem may or may not occur, and
@ -90,7 +88,7 @@ eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
*/ */
lists:delete([], _, []). lists:delete([], _, []).
lists:delete([Head|List], Elem, Residue) :- lists:delete([Head|List], Elem, Residue) :-
Head == Elem, !, Head = Elem,
lists:delete(List, Elem, Residue). lists:delete(List, Elem, Residue).
lists:delete([Head|List], Elem, [Head|Residue]) :- lists:delete([Head|List], Elem, [Head|Residue]) :-
lists:delete(List, Elem, Residue). lists:delete(List, Elem, Residue).