sorting - 没有累加器可以写这个吗？

Question

根据 http://www.erlang.org/doc/efficiency_guide/myths.html，我最初尝试在没有尾递归的情况下编写此代码BEAM 自己做。它有效，我只是想知道我的代码是否过于丑陋/效率低下。扫盲项目的一位http://en.literateprograms.org/Selection_sort_%28Erlang%29似乎没有我的版本那么简洁，但我觉得我的参数太多，不容易理解。如果我对递归更有经验，我不确定我是否会有这种感觉。

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

selection([H|T]) -> lists:reverse(selection(T,H,[],[])).

selection([],Min,[H|T],Acc) -> selection(T,H,[],[Min|Acc]);
selection([],Min,[],Acc) -> [Min|Acc];
selection([H|T],Min,Rest,Acc) when H < Min -> selection(T,H,[Min|Rest],Acc);
selection([H|T],Min,Rest,Acc) -> selection(T,Min,[H|Rest],Acc).

Answer 1

这是一个版本:

-module(selection).

-export([selection/1]).

selection([]) -> [];
selection([H|T]) -> 
  {Min, Rest} = remove_min(H, T, []),
  [Min | selection(Rest)].

remove_min(Min, [], Rest) -> {Min, Rest};
remove_min(SoFar, [H|T], Acc) when H < SoFar ->
  remove_min(H, T, [SoFar|Acc]);
remove_min(Min, [H|T], Acc) -> remove_min(Min, T, [H|Acc]).

或者获得最大值为 YOUR ARGUMENT IS VALID用累加器指出但没有反向:

selection([H|T]) -> selection(T,H,[],[]).

selection([],Max,[H|T],Acc) -> selection(T,H,[],[Max|Acc]);
selection([],Max,[],Acc) -> [Max|Acc];
selection([H|T],Max,Rest,Acc) when H > Max -> selection(T,H,[Max|Rest],Acc);
selection([H|T],Max,Rest,Acc) -> selection(T,Max,[H|Rest],Acc).

似乎两者的性能几乎相同。