Ordenar lista de numeros enteros 
Author Message
 Ordenar lista de numeros enteros

Hola.

?Como seria el predicado que permita ordenar una lista de numeros enteros,
es decir, una lista, dada una lista [4,3,2,1], el predicado devolvera la
lista [1,2,3,4] de la forma:

?ordenar (L1,L2)

Donde L1 es la lista a ordenar y L2 es la misma lista ya ordenada.



Tue, 22 Oct 2002 03:00:00 GMT  
 Ordenar lista de numeros enteros
Misha Ponce de Leon schrieb:

Quote:
> Hola.

> ?Como seria el predicado que permita ordenar una lista de numeros enteros,
> es decir, una lista, dada una lista [4,3,2,1], el predicado devolvera la
> lista [1,2,3,4] de la forma:

> ?ordenar (L1,L2)

> Donde L1 es la lista a ordenar y L2 es la misma lista ya ordenada.

ordenar(L, S) :- permutacion(L, S), ordered(S).

permutacion([], []).
permutacion(L, [H|R]) :-
 uno(L, H, L1),
 permutacion(L1, R).

uno([H|T], H, T).
uno([X|R], H, [X|T]) :- uno(R, H, T).

ordered([]).
ordered([X]).
ordered([X,Y|T]) :- X <= Y, ordered([Y|T]).

Not the fastest :-)

Bye



Thu, 24 Oct 2002 03:00:00 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. "n" primeros numeros de Fibonacci

2. CA-VISUAL OBJECTS (Solicito Lista de libros)

3. Spanish Python mailing list - Lista de Python en Espa?ol

4. ***Brazilian*** Lista de discuss?o vrml-brasil

5. Lista de correo sobre Python

6. Spanish Python mailing list - Lista de Python en Espa?ol

7. Lista de Positivos

8. numeros aleatorios

9. Lecture dynamique de membre(s) de PDS

10. CONEXION DE CLARION CON ARCHIVO DE COBOL

11. SPANISH - El ABC de Clarion - Tarjetas de crédito

12. SPANISH - Participa GRATIS en sorteo de El ABC de Clarion

 

 
Powered by phpBB® Forum Software