看到的erlang题目，个人向

1.对列表进行排序

-module(dkt).

ms(L) ->
    do_ms(L).

do_ms([H | T] = _S) ->
    {HL1, LL1} = do_ms1(H, T, [], []),
    do_ms(LL1) ++ [H] ++ do_ms(HL1); %% 小到大
do_ms([]) ->
    [].

do_ms1(H, [H1 | T], HL, LL) when H >= H1 ->
    do_ms1(H, T, HL, [H1 | LL]);
do_ms1(H, [H1 | T], HL, LL) ->
    do_ms1(H, T, [H1 | HL], LL);
do_ms1(_H, [], HL, LL) ->
    {HL, LL}.

%% 采用二分排序，不过使用的是 ++ 连接操作 
%%  可以测试耗时 timer:tc(dkt,ms,[[rand:uniform() || _S <- lists:seq(1,100000)]]).

%% 以下是看到 大佬通过列表解析实现的
sort([Pivot|T]) ->
    sort([ X || X <- T, X < Pivot]) ++ [Pivot] ++ sort([ X || X <- T, X >= Pivot]);
sort([]) -> [].

2.指定列表第N位后（包括第N位）的数据进行反转。谢绝一切API(lists:concat,lists:reverse、++、--等方法）

-module(dkt).
%% -compile(export_all).

m_pos_reverse(SrcPos, List) ->
    do_pos_reverse(