在线等，冒泡排序的实现

patagonia2

求教这个
在线等，谁会算这个函数

patagonia2

各路大圣
你平时用到排序么？

flagcugb

lists:sort/1 lists:sort/2

建议你去看一下这两个函数的源码

patagonia2

回复 3# flagcugb

大圣遇到的技术难题，你如何解决？
希望这个问题带给大家进步和成长

patagonia2

Er真心姿态优美，窈窕婀娜的仪态，令人赏心悦目。
优美是对语言的最基本的要求。

1. %-compile(export_all).
   
2. %-export([main/1]).
   
3. 
   
4. -define (PP (V), io:format ("~s = ~p~n", [??V, V])).
   
5. 
   
6. bobso(L) -> bobso([], L, 1, length(L)).
   
7. bobso(_, L, X, N) when X == N -> L;
   
8. bobso(U, [H], X, N) -> bobso([], U ++ [H], X + 1, N);
   
9. bobso(U, [A,B|T], X, N) when A > B -> bobso(U ++ [B], [A|T], X, N);
   
10. bobso(U, [A,B|T], X, N) -> bobso(U ++ [A], [B|T],X, N).
    
11. main(_) ->
    
12.   L = [5, 4, 3, 6, 1, 2, 7, 0],
    
13.   S = bobso(L),
    
14.   ?PP(S)
    
15. .
    

复制代码

q1208c

冒泡不是效率最差的排序算法么？

merge-sort 应该更好些吧？

谁有空给写一下 ？