找回密码
 加入
搜索
查看: 18009|回复: 48

[效率算法] 问题:假设有 6副 副克牌,(一副是52张),就是一共312张。求随机排序

 火.. [复制链接]
发表于 2014-10-24 06:44:27 | 显示全部楼层 |阅读模式
本帖最后由 9922250 于 2014-10-24 06:45 编辑

问题:假设有  6副 副克牌,(一副是52张),分别用数字1-52 代替,就是一共312张,

我要随机的把这6副牌,随机打乱(就是洗牌),然后第一张和第二张比大小,第三张丢弃,(循环到完)

应该怎么写。自己找了点代码,但是不懂随机排序。


#include <array.au3>
Dim $a[104] = [1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 52, 51, 50, 49, 48, 47, 46, 45, 44, 43, 42, 41, 40, 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 25, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 12, 11, 10, 9, 8, 7, 6, 5, 4, 3, 2, 1]
$fin = _Array_Random($a)
;~
For $i = 1 To 6
        For $n = 0 To UBound($fin) - 1
                If  $fin[$n] <> 0 Then FileWrite("312.txt", $fin[$n] & @CRLF);开始写入
        Next
Next

;~  ----------------------------------------
Func _Array_Random($Array)
        Local $oD = ObjCreate('Scripting.Dictionary')
        Local $i

        For $i In $Array
                If Not $oD.Exists($i) Then $oD.Add($i, 0);先去掉重复
        Next

        Local $outA = $oD.Keys()
        $oD.RemoveAll;释放资源
        $oD = ""


        For $k = 1 To 7;据说"完美"的洗牌次数是7次
                For $n = 0 To UBound($outA) - 1
                        _ArraySwap($outA[$i], $outA[Random(0, UBound($outA) - 1, 1)])
                Next
        Next
        Return $outA
EndFunc   ;==>_Array_Random
 楼主| 发表于 2014-10-24 07:10:58 | 显示全部楼层
本帖最后由 9922250 于 2014-10-24 07:12 编辑

想到个笨方法,我可以再生成一次 数字从 1 到 312,不重复的数字,在按数字一行一行读取上面生成的记事本,应该也算是随机排列。不过这样的话,就是把简单的,变成复杂了。   求新代码。
发表于 2014-10-24 08:56:54 | 显示全部楼层
本帖最后由 netegg 于 2014-10-24 09:12 编辑

回复 2# 9922250
这样怎么可能随机呢,每幅牌相对来说都是一样的,即都是52张,而且是一样的52张,简单打个比方,第一张牌是黑桃a,第二张是红桃a,但是这两张a各出自哪副牌,就有36种一样的组合,用312的话说明每幅牌与每幅牌之间的相同花色的相同点数牌都是不同的。尽管概率很小,但不是没可能
发表于 2014-10-24 09:38:34 | 显示全部楼层
没搞懂.看来蛋神的理解能力非常不一般~
发表于 2014-10-24 09:48:35 | 显示全部楼层
太高深了。。。完全理解不了。。
发表于 2014-10-24 10:07:58 | 显示全部楼层
本帖最后由 netegg 于 2014-10-24 10:13 编辑

回复 4# austere
有什么搞不懂的,很简单
假设洗牌后第一张牌是黑桃A(第一副牌的),第二张是红桃A(第二副牌的)和洗牌后第一张是黑桃A(第三副牌的),第二张是红桃A(第四副牌的),这样看来是一样的,除非每幅牌和每幅牌之间是不一样的,否则,楼主那个312根本就是不存在的,怎么谈的上随机
发表于 2014-10-24 10:20:40 | 显示全部楼层
暂且不管比不比大小,这个本身逻辑上就有问题
发表于 2014-10-24 10:24:48 | 显示全部楼层
本帖最后由 netegg 于 2014-10-24 10:26 编辑

还有洗牌次数的事,那是一副牌7次,但是有要求,是一张压一张不能变,而且是一副牌,还有必须是26张对26张,才对,要求很严格
 楼主| 发表于 2014-10-24 11:06:03 | 显示全部楼层
回复 8# netegg


  暂且不管洗牌的事情,现在就是说,我一共给你 六副牌,是否有个好办法能随机洗出来.请提供一下思路。

或者往简单一点的方法洗,就是不考虑一张压一张的洗发,就一次性把6副牌都丢到地上,打乱,在捡起来咯。
发表于 2014-10-24 11:14:30 | 显示全部楼层
不管相同不相同吗
发表于 2014-10-24 11:22:59 | 显示全部楼层
本帖最后由 netegg 于 2014-10-24 11:31 编辑

如果是这样的话
local $a = '', $i =0
while $i<=5
  $w =  random(1,52,1)
  if not stringinstr($a, $w) Then $a &= $w & ','
  $i+=1
wend
ConsoleWrite(StringTrimRight($a , 1) & @CR)
发表于 2014-10-24 11:32:59 | 显示全部楼层
这样就完事了
 楼主| 发表于 2014-10-24 11:33:10 | 显示全部楼层
回复 11# netegg


    这样写法,是不是没有办法得到,比如     六个黑桃 A  ,排在第1- 6张 的概率。就是6副排的最上面。


代码偷工减料了。
发表于 2014-10-24 11:39:49 | 显示全部楼层
剩下的事情就是改条件了
发表于 2014-10-24 11:44:16 | 显示全部楼层
那个概率不是死的吗
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-1 07:09 , Processed in 0.079703 second(s), 24 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表