在線等，冒泡排序的實(shí)現(xiàn)

patagonia2

求教這個(gè)
在線等，誰(shuí)會(huì)算這個(gè)函數(shù)

patagonia2

各路大圣
你平時(shí)用到排序么？

flagcugb

lists:sort/1 lists:sort/2

建議你去看一下這兩個(gè)函數(shù)的源碼

patagonia2

回復(fù) 3# flagcugb

大圣遇到的技術(shù)難題，你如何解決？
希望這個(gè)問(wèn)題帶給大家進(jìn)步和成長(zhǎng)

patagonia2

Er真心姿態(tài)優(yōu)美，窈窕婀娜的儀態(tài)，令人賞心悅目。
優(yōu)美是對(duì)語(yǔ)言的最基本的要求。

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. .
    

復(fù)制代碼

q1208c

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

merge-sort 應(yīng)該更好些吧？

誰(shuí)有空給寫(xiě)一下 ？