问题：假设有 6副副克牌，（一副是52张），就是一共312张。求随机排序

netegg · 发表于 2014-10-26 10:24:31

不对，lz到底要排序还是要组合

netegg · 发表于 2014-10-26 11:09:11

还是那个问题，假设洗牌后第一张牌是黑桃A（第一副牌的），第二张是红桃A（第二副牌的）和洗牌后第一张是黑桃A（第三副牌的），第二张是红桃A（第四副牌的），其余的牌都一样，是算两种还是算一种

netegg · 发表于 2014-10-26 23:58:51

对了，知道四色问题吗，这个比那个简单多了

lanfengc · 发表于 2014-10-27 10:01:04

回复 11# netegg

其实你想的有点复杂了. 不管第一副还是第二幅的黑桃A, 它是两张不同的牌, 按楼主的意思,应该是把这两张牌的不同顺序排列作为两种不同的情况来做的. 所以,这个问题只是用排列公式对312取全排列. 也就是总共有312的阶乘个结果.

netegg · 发表于 2014-10-27 10:30:15

本帖最后由 netegg 于 2014-10-27 10:34 编辑

回复 34# lanfengc
所以我才问lz，那种相同点数花色的牌的排序不管出自哪一副牌到底是算相同，还是算不相同

netegg · 发表于 2014-10-27 10:46:15

我不是不知道怎么算，一个公式的事，但就是lz没说清楚到底是什么

netegg · 发表于 2014-10-27 11:08:56

回复 34# lanfengc
其实说白了就是lz要的是组合还是排列的问题

netegg · 发表于 2014-10-27 11:14:43

楼主所谓的312张牌，那就是说无所谓了，反正是不同的，但是楼主又说有多少种，实在不清楚到底指望要什么

netegg · 发表于 2014-10-27 11:16:32

楼主所谓的312张牌，那就是说无所谓了，反正是不同的，但是楼主又说有多少种，实在不清楚到底指望要什么

netegg · 发表于 2014-10-27 11:28:50

回复 34# lanfengc

我想的是实际情况并非如此，即六副牌的黑桃a是一样的，其他也都类似，所以才问
不过好像有点想法了，随机取13次，然后再随机取6次，可能可以

lanfengc · 发表于 2014-10-28 17:17:11

回复 40# netegg

下面是我的一点拙见, 不知道我这样理解对不对.

假设第一副牌的黑桃A, 用 [1][黑桃A] 表示 , 第二幅用  [2][黑桃A]  表示
....  以此类推,  第六副的方块K  应该按照黑红梅方的顺序为 [6][方块K]

也就是用一个二维数组定义为  扑克牌[6][52],  然后对数组的每个元素按照上面的格式赋值
再定义一个一维数组, 存放结果.  定义为  结果[313]=[0,0,....0]

无限循环, 每次循环分别取  0-5的随机数 (用x表示) 和 0-51的随机数(用y表示)各一个.
从二维数组中取出这个随机的结果, 保存到临时变量.
然后用随机数(x+1)*(y+1) 作为结果数组的下标.
例如: x=3, y=39 , 那么  (x+1)*(y+1) = 160
再判断结果[160] 中存放的内容是否为0, 如果为0, 则把扑克牌[3][39]的元素赋值到结果[160] 中.

随机结束, 赋值结束后, 再判断一维数组中的所有下标从1开始的元素是否有一个为0, 如果都不为0, 则证明一组数据随机成功, 退出循环. 显示结果.

netegg · 发表于 2014-10-28 19:25:18

回复 41# lanfengc
就是不知道楼主到底要什么结果，如果只是牌的话，应该没这么复杂

netegg · 发表于 2014-10-28 19:28:41

回复 41# lanfengc

而且我发现lz在思路上好像有点混乱

kevinch · 发表于 2014-10-28 20:28:51

Global $card[13]=["2","3","4","5","6","7","8","9","10","J","Q","K","A"],$color[4]=["黑","红","花","片"]
Dim $howmany=6
Global $all[52*$howmany]
$t=0
For $a=1 To $howmany
        For $b=0 To UBound($color)-1
                For $c=0 To UBound($card)-1
                        $all[$t]=$color[$b]&$card[$c]
                        $t+=1
                Next
        Next
Next
_Display()
$t=Random(1000,9999)
For $a=1 To $t
        $b=Random(0,UBound($all)-1)
        $c=Random(0,UBound($all)-1)
        If $b<>$c Then
                $str=$all[$b]
                $all[$b]=$all[$c]
                $all[$c]=$str
        EndIf
Next
_Display()

Func _Display()
        $str=""
        For $a=0 To UBound($all)-1
                $str&=$all[$a]&" "
                If Mod($a,UBound($card))=UBound($card)-1 Then $str&=@CRLF
        Next
        ConsoleWrite($str&@CRLF)
EndFunc

小区域随机变换，不知道结果是不是楼主想要的

9922250 · 发表于 2014-10-28 22:13:08

回复 44# kevinch

两天不来，想不到回复那么多，我还是把我的问题，重新整理，在发一次吧。
做这个程序，是想模拟赌场，赌博的情形：

开始：六副牌全部放在一起打乱，开始洗牌，因为打乱了，所以牌的顺序也是随机的.相当于六副牌的组合，他就一共有312张。
牌洗好了，现在要开始赌博了，第一张丢弃，第二张发给庄家，第二张发给闲家，对比大小，四个花色也对比，只能出现三种结果（大，小，和局）

继续循环，第四张丢弃，第五张发给庄家，第六张发给闲家，对比大小，

最后输出的结果为，就是这104盘的大小结果，排列方法为，竖徘以七小局为一小局：比如下面

大
大
大
大
大
大
大
------------------------------------------

第八局开始，
大小
大
大
大
大
大
大
---------------------------------
第十五局开始，
大小小
大小
大小
大小
大小
大小
大小
---------------------------------
这样的排列方式。（上面的大小，是对比出来的）

		自动登录	找回密码
密码			加入

[效率算法] 问题：假设有 6副副克牌，（一副是52张），就是一共312张。求随机排序

本帖子中包含更多资源

[效率算法] 问题：假设有 6副 副克牌，（一副是52张），就是一共312张。求随机排序

本帖子中包含更多资源

[效率算法] 问题：假设有 6副副克牌，（一副是52张），就是一共312张。求随机排序