erlang乱序一个List的方案

 最近在系统地看erlang，目前以《erlang programming》为学习材料，看完前面七八章，试图写点东西，发现手足无措，能找到帮助的资料和文档也非常少。

其实我希望有人能一起来学习或讨论。

今日题目： 乱序一个List.

方法一： 一个较为精巧的乱序方案。

-module(shuffle).
-export([do/1]).                        

do(L) ->
    Len = length(L),                    
    NL = lists:map(fun(X) -> {random:uniform(Len), X} end, L),
    NLL = lists:sort(NL),               
    [ V || {_,V} <- NLL].

其实这个问题挺困扰我的，变量一旦被赋值便不可修改，这个特性让原本写程序的想法和思路完全不同了。我上面的做法是，利用随机数生成一个[{Rand1,Elem1},...,{RandN,ElemN}]这样的列表。

然后再用sort排序后，重新打印出Elem出来，乱序的效果由此达到。

结果大概如下：

45> c(shuffle).             
{ok,shuffle}
46> shuffle:do([1,2,3,4,5]).
[4,5,1,2,3]
47> shuffle:do([1,2,3,4,5]).
[2,1,5,3,4]
48> shuffle:do([1,2,3,4,5]).
[3,1,2,4,5]
49> shuffle:do([1,2,3,4,5]).
[1,5,2,3,4]
50> shuffle:do([1,2,3,4,5]).
[5,1,4,3,2]
51> 

方法二：通用洗牌算法

 接上文，乱序一个List,我想原有的通用洗牌算法可行的。尝试写了另一个函数。经测试有效，但是我想肯定有优化的空间。代码的风格仍然透露着浓重的过程式思想吧。

%使用洗牌算法的方案                     

do2(L) -> 
    do2(L,[]).

do2([],L) ->
    L;
do2(L1,L2) ->
    %io:format("L1=~w   L2=~w~n",[L1,L2]),   
    Len = length(L1),                   
    if 
        Len > 1 -> 
            NL = lists:split(random:uniform(Len-1), L1),
            {[H1|T1],[H2|T2]} = NL,     
            NL2 = lists:flatten([T1],[H1|T2]),       
            L11 = lists:append(L2,[H2]),
            do2(NL2, L11);
        true ->
            do2([],lists:append(L2,L1))
    end.

其结果为：
128> c(shuffle).
{ok,shuffle}
129> shuffle:do2(lists:seq(0,9)).
[9,2,5,1,8,0,7,3,6,4]
130> shuffle:do2(lists:seq(0,9)).
[8,3,6,5,7,4,9,0,2,1]
131> shuffle:do2(lists:seq(0,9)).
[5,3,7,8,1,9,0,6,2,4]
132> shuffle:do2(lists:seq(0,9)).
[3,0,5,2,1,6,8,4,9,7]
133> 

有几点值得思考的，关于这两种方案，是否是真正的洗牌算法。每个数字出现在某个位置是否等概率呢。

还有其它的方法不，欢迎探讨。