erlang乱序时一个List的解决方案
发布时间：2022-06-07 15:12:14 所属栏目：搜索优化 来源：互联网
导读：最近在系统地看erlang，目前以《erlang programming》为学习材料，看完前面七八章，试图写点东西，发现手足无措，能找到帮助的资料和文档也非常少。 其实我希望有人能一起来学习或讨论。 今日题目： 乱序一个List. 方法一： 一个较为精巧的乱序方案。 [php
|
最近在系统地看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> 有几点值得思考的，关于这两种方案，是否是真正的洗牌算法。每个数字出现在某个位置是否等概率呢。 还有其它的方法不，欢迎探讨。 （编辑：汉中站长网） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |
站长推荐