问题：假设有 6副 副克牌，（一副是52张），就是一共312张。求随机排序
本帖最后由 9922250 于 2014-10-24 06:45 编辑问题：假设有6副 副克牌，（一副是52张），分别用数字1-52 代替，就是一共312张，
我要随机的把这6副牌，随机打乱（就是洗牌），然后第一张和第二张比大小，第三张丢弃，（循环到完）
应该怎么写。自己找了点代码，但是不懂随机排序。
#include <array.au3>
Dim $a =
$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)
Next
Next
Return $outA
EndFunc ;==>_Array_Random 本帖最后由 9922250 于 2014-10-24 07:12 编辑
想到个笨方法，我可以再生成一次 数字从 1 到 312，不重复的数字，在按数字一行一行读取上面生成的记事本，应该也算是随机排列。不过这样的话，就是把简单的，变成复杂了。 求新代码。 本帖最后由 netegg 于 2014-10-24 09:12 编辑
回复 2# 9922250
这样怎么可能随机呢，每幅牌相对来说都是一样的，即都是52张，而且是一样的52张，简单打个比方，第一张牌是黑桃a，第二张是红桃a，但是这两张a各出自哪副牌，就有36种一样的组合，用312的话说明每幅牌与每幅牌之间的相同花色的相同点数牌都是不同的。尽管概率很小，但不是没可能 没搞懂.看来蛋神的理解能力非常不一般~ 太高深了。。。完全理解不了。。 本帖最后由 netegg 于 2014-10-24 10:13 编辑
回复 4# austere
有什么搞不懂的，很简单
假设洗牌后第一张牌是黑桃A（第一副牌的），第二张是红桃A（第二副牌的）和洗牌后第一张是黑桃A（第三副牌的），第二张是红桃A（第四副牌的），这样看来是一样的，除非每幅牌和每幅牌之间是不一样的，否则，楼主那个312根本就是不存在的，怎么谈的上随机 暂且不管比不比大小，这个本身逻辑上就有问题 本帖最后由 netegg 于 2014-10-24 10:26 编辑
还有洗牌次数的事，那是一副牌7次，但是有要求，是一张压一张不能变，而且是一副牌，还有必须是26张对26张，才对，要求很严格 回复 8# netegg
暂且不管洗牌的事情，现在就是说，我一共给你 六副牌，是否有个好办法能随机洗出来.请提供一下思路。
或者往简单一点的方法洗，就是不考虑一张压一张的洗发，就一次性把6副牌都丢到地上，打乱，在捡起来咯。 不管相同不相同吗 本帖最后由 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) 这样就完事了 回复 11# netegg
这样写法，是不是没有办法得到，比如 六个黑桃 A，排在第1- 6张 的概率。就是6副排的最上面。
代码偷工减料了。 剩下的事情就是改条件了 那个概率不是死的吗