erlang快排

-module(sort). 
-export([sort/1]). 

sort([]) -> []; 
sort([Pivot|Rest]) -> 
{Smaller, Bigger} = split(Pivot, Rest), 
lists:append(sort(Smaller), [Pivot|sort(Bigger)]). 

split(Pivot, L) -> 
split(Pivot, L, [], []). 

split(Pivot, [], Smaller, Bigger) -> 
{Smaller,Bigger}; 
split(Pivot, [H|T], Smaller, Bigger) when H < Pivot -> 
split(Pivot, T, [H|Smaller], Bigger); 
split(Pivot, [H|T], Smaller, Bigger) when H >= Pivot -> 
split(Pivot, T, Smaller, [H|Bigger]). 

此处选取列表的第一个元素为中轴。元列表被分为两个列表Smaller和Bigger

（Smaller的所有元素都小于中轴Pivot而Bigger的所有元素都大于等于Pivot）。

之后，再对列表Smaller和Bigger分别排序并将结果合并。

转自：http://www.douban.com/group/topic/8773122/