copia_lista.pro

inicia:-
	%copia([1,2,3,4,5,6], [], L),	write(L),
	non([1,2,3,4,5,6], [], NON), par([1,2,3,4,5,6], PAR),
	 write(NON), nl, write(PAR).


par([], []).
par([H|T], [H|PAR]):-
        0 is H mod 2, par(T, PAR).
par([_|T], PAR):-
	par(T, PAR).


non([], L, L).
non([H|T], NON, New):-
	1 is H mod 2, non(T, [H|NON], New).
non([_|T], NON, New):-
	non(T, NON, New).
	


copia([], L, L).
copia([H|T], L1, [H|L2]):-
	copia(T, L1,L2).