找回密码
 加入
搜索
楼主: 9922250

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

 火.. [复制链接]
发表于 2014-10-24 11:48:14 | 显示全部楼层
要么你没说明白,要不我理解错了
 楼主| 发表于 2014-10-24 11:48:56 | 显示全部楼层
回复 15# netegg


    六副排都在一起,一切的排列概率,都有可能出现吧。
发表于 2014-10-24 11:54:04 | 显示全部楼层
回复 17# 9922250
那还不容易
local $a = '', $i =0
while $i<=5
  $w =  random(1,13,1), $b =  random(1,4,1)
  $w = $w & $b
  if not stringinstr($a, $w) Then $a &= $w & ','
  $i+=1
wend
ConsoleWrite(StringTrimRight($a , 1) & @CR)
发表于 2014-10-24 11:58:35 | 显示全部楼层
可能写的简单了点,不过大概思路没错
 楼主| 发表于 2014-10-24 12:08:29 | 显示全部楼层
回复 18# netegg
#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

Local $aNum[313]
For $i = 0 To 312
        $aNum[$i] = $i + 1
Next
For $i = 0 To 312
        $r = Random($i, 312, 1)
        $temp = $aNum[$i]
        $aNum[$i] = $aNum[$r]
        $aNum[$r] = $temp
Next
 
Dim $Ans
For $i = 0 To 311
        $dangqian = FileReadLine ( "312.txt", $aNum[$i] )
        FileWrite("按数字读取行打乱.txt",$dangqian & @CRLF)
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 12:12:05 | 显示全部楼层
对象操作我没什么概念,不清楚
发表于 2014-10-24 13:14:18 | 显示全部楼层
另外,你这个根本没定义随机呀,那么多的牌你都定义好了,何来随机
 楼主| 发表于 2014-10-24 13:43:02 | 显示全部楼层
回复 15# netegg


    请教个问题,一个数组,找不到代码。
输入结果为

1    8      15
2   9      16
3   10    17
4   11    ..................
5   12     应该怎么写。
6   13
7   14

付上个小代码。元老帮我修改下。
Dim $Grid[3][4]=[["Paul", "Jim", "Richard", "Louis"], [485.44, 160.68, 275.16, 320.00]]

ReDim $Grid[3][4]
        For $i=0 To 3
        $Grid[2][$i]=$avArray[$i]
        Next
        _ArrayDisplay($Grid, "new-$Grid")
Next
发表于 2014-10-24 17:42:28 | 显示全部楼层
想做成什么样
发表于 2014-10-25 13:08:31 | 显示全部楼层
本帖最后由 netegg 于 2014-10-26 09:29 编辑

local $a = '', $i =0
while $i<=5
;$w为点数,$b为花色, $c为次数
  Local $w =  random(1,13,1), $b =  random(1,4,1), $c= random(1,6,1)
;格式化选中的花色点数
  $u = stringformat('%02d', $w) & $b
;格式化选中的花色点数所原有所在的哪副牌
  $v = $u & $c
;如果所在牌不同且所选中的花色点数不超过6次
  if not (stringinstr($a, $v , 0 , 2)) and not(stringinstr($a, $u, 0, 7)) Then
   $a &= $v & ', '
    $i+=1
  EndIf
wend
ConsoleWrite(StringTrimRight($a , 1) & @CR)
发表于 2014-10-25 13:11:06 | 显示全部楼层
回复 23# 9922250
什么意思
发表于 2014-10-25 18:30:46 | 显示全部楼层
回复 23# 9922250
local $ret = ''
for $i = 1 to 7
  $ret &= $i & '    ' & $i+7 & '   ' & $i +14 &@crlf
next
msgbox(0,0,$ret)
发表于 2014-10-25 21:06:23 | 显示全部楼层
回复 26# netegg


  蛋蛋, 一看LZ弄的这些就烦感,一沾到扑克的东西绝没有好事情,建议自行解决
发表于 2014-10-26 08:26:18 | 显示全部楼层
本帖最后由 netegg 于 2014-10-26 08:37 编辑

回复 23# 9922250
udf区有二维数组的操作,虚拟建立第三个元素,比如[0,0,0,0], 然后删除就是了
发表于 2014-10-26 10:09:47 | 显示全部楼层
[au3]For $j = 0 To 10
        main()
        ConsoleWrite(@CRLF)
Next
Func main()
        Local $a = '', $i = 0
        Local $o[4] = ['红桃', '黑桃', '草花', '方块']
        Local $p[6] = ['第一副牌', '第二副牌', '第三副牌', '第四副牌', '第五副牌', '第六副牌']
        While $i <= 5
                ;$w为点数,$b为花色, $c为次数
                Local $w = Random(1, 13, 1), $b = Random(1, 4, 1), $c = Random(1, 6, 1)
                ;格式化选中的花色点数
                $u = StringFormat('%02d', $w) & $b
                ;格式化选中的花色点数所原有所在的哪副牌
                $v = $u & $c
                ;如果所在牌不同且所选中的花色点数不超过6次
                If Not (StringInStr($a, $v, 0, 2)) And Not (StringInStr($a, $u, 0, 7)) Then
                        $a1 = $v
                        ConsoleWrite($p[StringRight($a1, 1) - 1] & $o[StringMid($a1, 3, 1) - 1] & Number(StringLeft($a1, 2)) & @CR)
                        $i += 1
                EndIf
        WEnd
EndFunc   ;==>main[/au3]
您需要登录后才可以回帖 登录 | 加入

本版积分规则

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

GMT+8, 2024-11-1 07:27 , Processed in 0.068856 second(s), 14 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

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