UNO.pl

%% PROGRAMAS VARIOS DE DEMO


%% HOLA MUNDO
%%========================
hola:-
	write('Nombre: '), read(Nombre),
	write('hola  '), write(Nombre).


%% MOSTRAR LOS ELEMENTOS DE UNA LISTA
%%====================================
mostrar( [ ] ) :- !.
mostrar([ H |  T] ):-
		writeln(H), mostrar( T ).

%% COPIA EL CONTENIDO DE UNA VARIABLE A OTRA
%%=========================================
copia(X, X).

%% OBTIENE EL VALOR MAS PEQUENIO DE UNA LISTA
%%==========================================
menor( [ ], M).
menor( [H | T] , Menor) :-
	compara([H|T], H, Menor).

compara( [ ], Y, Y) :- !.
compara([H | T], Vi, Menor):-
	H < Vi,
	compara( T, H, Menor).
compara([ _ | T], Vi, Menor):-
	compara(T, Vi, Menor).


%=====================================================================
% CREAR UN PREDICADO QUE REALICE LA SUMA DE LOS ELEMENTOS DE UNA LISTA
%=====================================================================