当前位置:首页 > SEO教程 > SEO排名教程 >

erlang乱序时一个List的解决方案

发布时间:2021-07-25 16:53 | 浏览次数:次 | 作者:王牌SEO公司小编| 来源:原创

erlang乱序时一个List的解决方案

最近在系统地看erlang,目前以《erlang programming》为学习材料,看完前面七八章,试图写点东西,发现手足无措,能找到帮助的资料和文档也非常少。 其实我希望有人能一起来学习或讨论。 今日题目: 乱序一个List. 方法一: 一个较为精巧的乱序方案。 [php] -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出来,乱序的效果由此达到。 结果大概如下: [php] 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,我想原有的通用洗牌算法可行的。尝试写了另一个函数。经测试有效,但是我想肯定有优化的空间。代码的风格仍然透露着浓重的过程式思想吧。 %使用洗牌算法的方案 [php] 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> 有几点值得思考的,关于这两种方案,是否是真正的洗牌算法。每个数字出现在某个位置是否等概率呢。 还有其它的方法不,欢迎探讨。

 

本文由王牌SEO公司原创,转载本文请附带本文链接:http://www.jinuoseo.com/wzjsprogram/7927.html 标明:转自【王牌SEO公司】