Primer Práctico De Listas En ProLog Cordova Sanchez Mario 213005621 Grupo 13

UNIVERSIDAD AUTÓNOMA GABRIEL RENE MORENO
FACULTAD DE INGENIERÍA Y CIENCIAS DE LA COMPUTACIÓN Y
TELECOMUNICACIONES
CARRERA DE INGENIERÍA INFORMÁTICA

PROGRAMACIÓN LOGICA Y FUNCIONAL
CONTENIDO:Ejercicios Básicos sobre Listas.
.

Estudiante: Córdova Sánchez Mario
Registro: 213005621
Sigla: INF318
Grupo: SA

Santa Cruz – Bolivia

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%% 1ER PRACTICO LISTAS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%1
menor([X|Y],Me):menor(Y,Me1),
menor(X,Me1,Me).
menor(X,Y,X):- X menor(_X,Y,Y).
%2
mayor([X|Y],My):mayor(Y,My1),
mayor(X,My1,My).
mayor(X,Y,X):- X>Y,!.mayor(_X,Y,Y).
%3
seEncuentra([X|_], X):-!.
seEncuentra([_|L], X):seEncuentra(L,X).
%4
subConj(L1,L2):diferentes(L1),
diferentes(L2),
subConjunto(L1,L2).
subConjunto([],[]):-!.
subConjunto([],[_]):-!.subConjunto([],[_|_]):-!.
subConjunto([X|L1],L2):seEncuentra(L2,X),
subConjunto(L1,L2).
%5
suma([],0):-!.
suma([X|L1],Sum):suma(L1,Sum1),
Sum is Sum1+X.

%6
cantidad([],0):-!.
cantidad([_X|L1],Q):cantidad(L1,Q1),Q is Q1+1.
%7
promedio([],0):-!.
promedio(L,P):suma(L,S),
cantidad(L,C),
P is S/C.

%8
ordenado([]):-!.
ordenado([_]):-!.
ordenado(L):- ordenadoAsc(L);ordenadoDesc(L).
ordenadoAsc([]):-!.ordenadoAsc([_]):-!.
ordenadoAsc([X,Y|L1]):X =< Y ,
ordenadoAsc([Y|L1]).
ordenadoDesc([]):-!.
ordenadoDesc([_]):-!.
ordenadoDesc([X,Y|L1]):X >= Y ,
ordenadoDesc([Y|L1]).
%9
frecuencia([X],X,1):-!.frecuencia([X],Y,0):- X=\=Y.
frecuencia([X|L1],X,F):frecuencia(L1,X,F1),
F is F1 +1.
frecuencia([X|L1],Y,F):X =\= Y,
frecuencia(L1,Y,F).
%10
iguales([]):-!.
iguales([_]):-!.
iguales([X,X|L1]):iguales([X|L1]).
%11diferentes([]):-!.
diferentes([_]):-!.
diferentes([X|L1]):frecuencia(L1,X,0),
diferentes(L1).

%12
sumaPares([],0):-!.
sumaPares([X|L1],Sum):X mod 2 =:= 0,
sumaPares(L1,Sum1),
Sum is Sum1+X.sumaPares([_|L1],Sum):sumaPares(L1,Sum).
%13
puroPares([X]):- X mod 2 =:=0,!.
puroPares([X|L1]):X mod 2 =:= 0 ,
puroPares(L1).
%14
sumaPrimos([],0):-!.
sumaPrimos([X|L1],Sum):primo(X),
sumaPrimos(L1,Sum1),...

Leer documento completo

Regístrate para leer el documento completo.