Mathematica
Mathematica
Datos personales
apache Flex
martes, 25 de junio de 2013
PROLOG: Busca numero mayor en lista (versión 2)
11:25 | 
Publicado por
a8a
Este programa busca el elemento mayor de una lista:
my_list_max(X, [X]) :-
!.
my_list_max(X, [X|Ys]) :-
my_list_max(X1, Ys),
X >= X1,
!.
my_list_max(X, [_|Xs]) :-
my_list_max(X, Xs).
Para ejecutar el programa:
?- my_list_max(X, [5,3,9,2,8,7]).
Y el resultado es:
X = 9
Nota: Este programa fue una contribución de uno de nuestros visitantes, quien propuso una solución recursiva al problema.
PROLOG: Busca numero menor en lista (versión 2)
Este programa busca el elemento menor de una lista:
my_list_min(X, [X]) :-
!.
my_list_min(X, [X|Ys]) :-
my_list_min(X1, Ys),
X =< X1,
!.
my_list_min(X, [_|Xs]) :-
my_list_min(X, Xs).
Para ejecutar el programa:
?- my_list_min(X, [5,3,9,2,8,7]).
Y el resultado es:
X = 2
Nota: Este programa fue una contribución de uno de nuestros visitantes, quien propuso una solución recursiva al problema.
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
