Mathematica
Mathematica
Datos personales
apache Flex
jueves, 3 de noviembre de 2011
PROLOG: Busca numero menor en lista
12:00 | 
Publicado por
a8a
Este programa busca en una lista de números el menor:
my_list_min(M, [X|Xs]):-
my_list_min2(M, X, Xs).
my_list_min2(M, M, []):- !.
my_list_min2(X, Y, [Z|Zs]):-
Z =< Y,
!,
my_list_min2(X, Z, Zs).
my_list_min2(X, Y, [Z|Zs]):-
Z >= Y,
my_list_min2(X, Y, Zs).
Para ejecutar el programa:
?- my_list_min(M, [5,3,9,2,8,7]).
Y el resultado es:
M = 2
Suscribirse a:
Enviar comentarios (Atom)
Wolfram Programming Lab
2 comentarios:
Otra solución aprovechando mejor (a mi entender) la naturaleza recursiva, ya que no necesita una variable auxiliar para almacenar el resultado:
menor([X], X) :- !.
menor([M|L], M) :- menor(L, M1), M =< M1, !.
menor([_|L], M1) :- menor(L, M1).
Saludos
Hola
Tienes razón, esta es una forma recursiva de resolver el problema. Adicionare tu código al Blog.
Gracias por el aporte.
Publicar un comentario