Anotaciones Parcial

/*
 * Leer una lista y mostrarla en pantalla
 */
inicio:-write('Ingrese una lista de elementos:'), leer(Lista),write(Lista).
leer([H|T]):-read(H),H\=[],leer(T).
leer([]).

/*
 * Mostrar su cabeza y su cola
 */
mostrarCabezaCola([H|T]):-write('Cabeza: '), write(H),nl,
                          write('Cola: '), write(T).

/*
 * Mostrar 2 primeros elementos
 */
mostrarLos2Primeros([H1|[H2|_]],Primero, Segundo):-Primero is H1,Segundo is H2.
mostrarLos2Primeros(lista,Primero,Segundo).

/*
 * Mostrar último elemento
 */
mostrarUltimo([H,[]],H).
mostrarUltimo([_|T],U) :- mostrarUltimo(T,U).

/*
 * Diferencia entre el primero y el último
 */
mostrarPrimero(L,P), mostrarUltimo(L,U), B is P-U, write B

/*
 * Cuantos elementos
 */
cuantos([_|T],C) :- B is C+1, cuantos(T,B).
cuantos([_|_],C) :- B is C+1, write(B).

/*
 * Sumatoria
 */
sumatoria([H|T],C) :- B is C+H, sumatoria(T,B).
sumatoria([H|_],C) :- B is C+H, write(B).


/*
 * Promedio
 */
promedio([H|T],S,C) :- B1 is S+H, B2 is C+1, promedio(T,B1,B2).
promedio([_|_],S,C) :- P is S/C, write(P).

/*
 * Pertenece
 */
pertenece(X,[H|_]):-X=H.
pertenece(X,[_|T]):-pertenece(X,T).

/*
 * Mayor
 */
mayor([],MayorActual):- write(MayorActual).
mayor([H|T],MayorActual):- H > MayorActual, mayor(T,H).
mayor([_|T],MayorActual):-mayor(T,MayorActual).

/*
 * Concatenar
 */
concatenar([],[],[]).
concatenar([H1|T1],L2,[H1|T3]):-concatenar(T1,L2,T3).
concatenar([],[H2|T2],[H2|T3]):-concatenar([],T2,T3).

/*
 * Intersección
 */
interesesEnComun(Usuario1,Usuario2,ListaIntereses):-intereses(Usuario1,L1),intereses(Usuario2,L2),interseccion(L1,L2,ListaIntereses).
interseccion([],_,[]).
interseccion([H,T1],L2,[H,T3]):-pertenece(H,L2), interseccion(T1,L2,T3).
interseccion([_|T1],L2,L3):-interseccion(T1,L2,L3).

/*
 * Findall
 */
usuariosCiudad(C):-findall(X,usuarios(_,X,C),Lista), write(Lista).