erlang第一个程序 merge-sort

最近抽空在学习erlang，热情高涨 ：）
这是我第一个程序，归并排序

merge_sort(L) ->
     merge_sort_([[X] || X <- L], []).

merge_sort_([H1, H2 | L], T) ->
     merge_sort_(L, [merge_(H1, H2) | T]);
merge_sort_([H] , []) ->
     H;
merge_sort_([H], T) ->
     merge_sort_(lists:append(T, [H]), []);
merge_sort_([], T) ->
     merge_sort_(T, []).

merge_(L, []) -> L;
merge_([], L) -> L;
merge_([H1|T1], [H2|T2]) when H1 < H2 ->
     [H1 | merge_(T1, [H2|T2])];
merge_(L1, [H2|T2]) ->
     [H2 | merge_(L1, T2)].

接下来，把他改成分布式