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.
miércoles, 24 de abril de 2013
PROLOG: Borra ultimo elemento de una lista
Este programa borra el último elemento de una lista:
my_remove_last_element([_], []).
my_remove_last_element([Y|Ys], [Y|Zs]):-
my_remove_last_element(Ys, Zs).
Para ejecutar el programa:
?- my_remove_last_element([a,b,c,b,e,b,f,g], Zs).
Y el resultado es:
Zs = [a,b,c,b,e,b,f]
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
