Erlang lists:sort 源码方法

注释写的真好

 406 %% sort(List) -> L

 407 %%  sorts the list L

 408 

 409 -spec sort(List1) -> List2 when

 410       List1 :: [T],

 411       List2 :: [T],

 412       T :: term().

 413 

 414 sort([X, Y | L] = L0) when X =< Y ->

 415     case L of

 416         [] -> 

 417             L0;

 418         [Z] when Y =< Z ->

 419             L0;

 420         [Z] when X =< Z ->

 421             [X, Z, Y];

 422         [Z] ->

 423             [Z, X, Y];

 424         _ when X == Y ->

 425             sort_1(Y, L, [X]);

 426         _ ->

 427             split_1(X, Y, L, [], [])

 428     end;

 429 sort([X, Y | L]) ->

 430     case L of

 431         [] ->

 432             [Y, X];

。。。。。。。。。。。。。。