qsort

% 2. Definir predicados recursivos para ordenar:
%      1. Una lista de números
%      2. Una lista de palabras (una palabra se representa como una lista de carácteres)

pivotNros(_, [], [], []) :- !.
pivotNros(P, [H|T], [H|I], D) :- H =< P, !, pivotNros(P, T, I, D).
pivotNros(P, [H|T], I, [H|D]) :- H > P, !, pivotNros(P, T, I, D).

quicksortNros([], []).
quicksortNros([P|T], L) :-
	pivotNros(P, T, I, D),
	quicksortNros(I, I2),
	quicksortNros(D, D2),
	append(I2, [P|D2], L).