Mathematica
Mathematica
Datos personales
apache Flex
jueves, 1 de noviembre de 2012
PROLOG: Permutacion de una lista
1:54 | 
Publicado por
a8a
Este programa encuentra todas las permutaciones de los elementos de una lista (La permutación de un conjunto se define como cada una de las posibles ordenaciones de todos los elementos de dicho conjunto):
my_permutation(Bs, [A|As]):-
my_append(Xs, [A|Ys], Bs),
my_append(Xs, Ys, Zs),
my_permutation(Zs, As).
my_permutation([], []).
Para ejecutar el programa:
?- my_permutation([a,b,c],Ls).
Y el resultado es:
Ls = [a,b,c] Ls = [a,c,b] Ls = [b,a,c] Ls = [b,c,a] Ls = [c,a,b] Ls = [c,b,a]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
Suscribirse a:
Enviar comentarios (Atom)
Wolfram Programming Lab
5 comentarios:
No sirve tu madre esa, pon las cosas bien cabrooooooooooon.
Hola
Probablemente si usas el código de esta sección unido a la regla "my_append" definida en otra entrada del blog, te funcione bien.
Si te fijas, al final de la entrada dice: "Nota: Este programa usa algunas reglas (programas) definidas anteriormente."
Saludos
Oye, amigo, a mi solo me aparece la misma lista de la entrada, no las permutaciones. =(
Hola
El programa esta bien. Solo debes buscar la función my_append en el blog que debe estar presente en el código.
Luego, cuando pruebes el objetivo:
my_permutation([a,b,c],Ls).
Prolog devolverá una solución (Ls = [a,b,c] ), y si das punto y coma (;), Prolog mostrará las demas soluciones.
Saludos
donde chingados está my_append, yo quiero las cosas en la mano hdtptm
Publicar un comentario