Ejercicio 3.2 de Prolog Pedro Francisco

1. Escriba una meta, usando concat, para eliminar los tres últimos elementos de una lista L 

produciendo otra lista L1. Recomendación: L es la concatenación de L1 y una lista de tres 

elementos.  

 eliminar3elementos([m,n,j,l,a,k,a],L1).

2 ?-  eliminar3elementos([1,2,3,4,5,5],L1).

L1 = [4, 5, 5].

3 ?-  eliminar3elementos([Rosa,Amarillo,Azul,Verde,Cafe,negro],L1).

L1 = [Verde, Cafe, negro].

4 ?- 

2. Escriba una secuencia de metas para eliminar los tres primeros elementos y los tres 

últimos elementos de una lista L produciendo la lista L2. 

elimina([a,b,c,d,e,f],d,L2).

3. Defina la relación:  

          ultimo( Elemento, Lista)

  

de tal modo que Elemento sea el último elemento de la lista Lista. Escriba dos versiones: 

(a) usando la relación concat, y

 (b) sin usarla. 

1 ?-  ultimo(d,[a,c,e,f,d,f]).

false.

2 ?- ultimo(a,[d,e,g,h,f,a]).

true .

3 ?- ultimo(a,[a,a,a,a,a,a,a,a]).

true .

4 ?- ultimo(6,[2,3,4,5,1,7,6,2]).

false.

5 ?- ultimo(pedro,[alejandro,carlos,alberto,antonio,pedro]).

true .