Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- % 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).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement