Árvore em Prolog

[Fernanda Souza]

Oi gente preciso de ajuda !
Preciso fazer um chinês de um script em prolog. Não precisa ser aquele chinês, só uma árvore que de pra entender passo a passo o q cada linha faz. Como foi ordenado o numero.Esse ai abaixo é o script. Tenho q explicar como os numeros serao ordenados se for usar o metodo menor ou maior ... A pergunta para a resposta é qs([3,2,5,1,4],R) preciso ordenar !!

menor(_,[],[]):-!.
menor(X,[C|R],[C|T]):-C=<X,menor(X,R,T),!.
menor(X,[C|R],T):-C>X,menor(X,R,T),!.

maior(_,[],[]):-!.
maior(X,[C|R],[C|T]):-C>X,maior(X,R,T),!.
maior(X,[C|R],T):-C=<X,maior(X,R,T),!.

conc([],L,L).
conc([X|T1],L2,[X|T3]):-conc(T1,L2,T3).

qs([],[]).
qs([X],[X]):-!.
qs([C|R],O):-menor(C,R,M1),maior(C,R,M2),gs(M1,O1),qs(M2,O2),co nc(O1,[C|O2],O),!.

[HeartLess]

É só seguir o algoritmo. Lembra-te que o prolog gera árvores lógicas para determinar o resultado, e que recursividade faz com que o resultado se dê ao contrário, ou seja, depois de chegar ao fim, começa a colocar para trás.