Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -module(qsort).
- -export([qsort/1]).
- qsort([]) -> []; % Тривиальный случай пустого списка
- qsort([Pivot|Rest]) ->
- % Конкатенация списка элементов до Pivot, списка из одного элемента Pivot и после Pivot
- qsort([Front || Front <- Rest, Front < Pivot])
- ++ [Pivot] ++
- qsort([Back || Back <- Rest, Back >= Pivot]).
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement