Erlang——快速排序

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

spilt(Privot,L)->
        spilt(Privot,L,[],[]).

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

qsort(X)->
        qsort(X,[]).
qsort([Pivot|Rest],Tail)->
        {Smaller,Bigger}=spilt(Pivot,Rest),
        qsort(Smaller,[Pivot|qsort(Bigger,Tail)]);