/*
 * lista-resultados.pl
 *
 */

persona(andres).
persona(maria).
persona(lucas).

listaPersonas(L) :- armaListaPersonas(L, []).

armaListaPersonas( [X|L], Aux ) :-
	persona(X),
	\+(member(X, Aux)), !,
	append(Aux, [X], Aux2),
	armaListaPersonas(L, Aux2).

armaListaPersonas( [], _Aux ).