/****************************************************************************

Programa que permite realizar el ordenamiento

de los elementos de una lista.

Inteligencia Artificial

Gonzalo Villarreal Farah

Para Turbo Prolog 2.0 de la Borland

****************************************************************************/

domains

lista=integer*

predicates

bublesort(lista,lista)

swap(lista,lista)

gt(integer,integer)

clauses

bublesort(List,Sorted):-

swap(List,List1),!,

bublesort(List1,Sorted).

bublesort(Sorted,Sorted).

swap([X,Y|Rest],[Y,X|Rest]):-

gt(X,Y).

swap([Z|Rest],[Z|Rest1]):-

swap(Rest,Rest1).

gt(X,Y):-

X>Y.