Mathematica
Mathematica
Datos personales
apache Flex
viernes, 10 de junio de 2011
PROLOG: Compresión de una lista (versión 2)
0:45 | 
Publicado por
a8a
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.
Suscribirse a:
Enviar comentarios (Atom)
Wolfram Programming Lab
0 comentarios:
Publicar un comentario