Mathematica
Mathematica
Datos personales
apache Flex
viernes, 11 de mayo de 2012
PROLOG: Ordena lista de numeros, metodo de la burbuja
10:26 | 
Publicado por
a8a
Este programa ordena una lista numérica en forma ascendente. Si quieres ordenar en forma descendente cambia la linea "B < A" por "A < B":
my_bubble_sort(Xs, Ys):-
my_append(Cs, [A,B|Ds], Xs),
B < A,
my_append(Cs, [B,A|Ds], Fs),
my_bubble_sort(Fs, Ys),
!.
my_bubble_sort(Xs, Xs).
Para ejecutar el programa:
?- my_bubble_sort([4,7,1,3,2,9,2,6], Ls).
Y el resultado es:
Ls = [1,2,2,3,4,6,7,9]
Nota: Este programa usa algunas reglas (programas) definidas anteriormente.
Suscribirse a:
Enviar comentarios (Atom)
Wolfram Programming Lab
9 comentarios:
Felicidades por su trabajo, muy buenos aportes.
Gracias
No ejecuta tu programa amigo
Hola Germánico. El código funciona bien, pero ten en cuenta que la regla my_append no esta definida aquí, asi que hay que buscarla en otra entrada del blog. Simplemente la copias junto a estas líneas.
my_append la puedes encontrar en esta dirección: http://xpasos.blogspot.com.co/2011/05/prolog-concatena-listas.html
Espero te sirva. Saludos.
Gracias me sirvió mucho para una tarea !!
su programa no funciona bro
el programa no funciona x2
Si funciona solo tienen que adaptarlo.
ordenarburbuja(L,L2):-append(LA,[A,B|LB],L),A>B,append(LA,[B,A|LB],L3),ordenarburbuja(L3,L2).
ordenarburbuja(L,L).
Es increible, funciona bastante bien. Aunque hay partes que no entiendo pero me sirvio de maravilla
Cómo funciona?
Publicar un comentario