Mathematica
Mathematica
Datos personales
apache Flex
miércoles, 29 de junio de 2011
PROLOG: Elementos consecutivos en una lista
16:19 | 
Publicado por
a8a
Este programa mira si dos elementos se encuentran consecutivos en una lista:
my_consecutive(X,Y,[X,Y|_]).
my_consecutive(X,Y,[_|Xs]):-
my_consecutive(X,Y,Xs).
Para ejecutar el programa:
?- my_consecutive(e,g,[d,f,e,g,h,e,r,u]).
Y el resultado es:
yes
Para ejecutar el programa:
?- my_consecutive(g, e, [d,f,e,g,h,e,r,u]).
Y el resultado es:
no
domingo, 19 de junio de 2011
PROLOG: Borra elemento N de una lista (versión 2)
Este programa elimina el elemento en la posición N en una lista:
my_remove_element_n(_, _, [], []).
my_remove_element_n(N, N, [_|Xs], Zs):-
I2 is N + 1,
my_remove_element_n(N, I2, Xs, Zs), !.
my_remove_element_n(N, I, [Y|Xs], [Y|Zs]):-
I2 is I + 1,
my_remove_element_n(N, I2, Xs, Zs).
Para ejecutar el programa:
?- my_remove_element_n(5, 1, [a,b,c,d,e,f,g,h], Zs).
Y el resultado es:
Zs = [a,b,c,d,f,g,h]
PROLOG: Borra elemento N de una lista
Este programa elimina el elemento en la posición N en una lista:
my_remove_element_n(1, [_|Xs], Xs).
my_remove_element_n(I, [X|Xs], [X|Ys]):-
I2 is I - 1,
my_remove_element_n(I2, Xs, Ys).
Para ejecutar el programa:
?- my_remove_element_n(5, [a,b,c,d,e,f,g,h], Zs).
Y el resultado es:
Zs = [a,b,c,d,f,g,h]
viernes, 10 de junio de 2011
PROLOG: Compresión de una lista (versión 2)
Este programa permite eliminar los elementos repetidos en una lista. A diferencia de la versión 1 de este programa, los elementos a eliminar NO tienen que estar contiguos:
my_compress([], []):- !.
my_compress([X|Xs], Ys):-
my_member(X, Xs),
!,
my_compress(Xs, Ys).
my_compress([X|Xs], [X|Ys]):-
my_compress(Xs, Ys).
Para ejecutar el programa:
?- my_compress([a,a,e,e,e,c,c,b,b,b,b,d,f], Ls).
Y el resultado es:
Ls = [a,e,c,b,d,f]
Para ejecutar el programa:
?- my_compress([e,e,e,a,a,e,e,e,c,c,b,b,b,b,d,f], Ls).
Y el resultado es:
Ls = [a,e,c,b,d,f]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
miércoles, 8 de junio de 2011
PROLOG: Compresion de una lista
Este programa permite eliminar los elementos repetidos en una lista. Los elementos a eliminar deben estar contiguos:
my_compress([], []).
my_compress([X], [X]).
my_compress([X, X|Xs], Zs):-
my_compress([X|Xs], Zs).
my_compress([X, Y|Ys], [X|Zs]):-
X \= Y,
my_compress([Y|Ys], Zs).
Para ejecutar el programa:
?- my_compress([a,a,e,e,e,c,c,b,b,b,b,d,f], Ls).
Y el resultado es:
Ls = [a,e,c,b,d,f]
Para ejecutar el programa:
?- my_compress([e,e,e,a,a,e,e,e,c,c,b,b,b,b,d,f], Ls).
Y el resultado es:
Ls = [e,a,e,c,b,d,f]
Suscribirse a:
Entradas (Atom)
Wolfram Programming Lab
