数组里包含的N个数值随机输出且只输出一次

qq450196

一个数组包含N个数值，要求把该数组里的所有数值乱序输出到文本且没有重复的(每个数值只输出一次)。

求AU3的代码。谢谢

itljl

每输出都检查一次。

qq450196

回复 2# itljl

能给完整代码吗

风行者

#include <Array.au3>
Dim $a[9]=[1,2,3,4,5,6,7,8,9]
$s = UBound($a) - 1  ;假设不知道a的下标，求出
For $i = 0 To $s
        $d = Random($i,$s,1)
        _ArraySwap($a[$i],$a[$d])
Next
_ArrayDisplay($a)

qq450196

回复 4# 风行者


    风行哥，你QQ多少

netegg

#Include <Math.au3>
_RandomUnique
新加的函数，把索引随机排列下，匹配上对应值就行了
或者这样

For $i = 1 To UBound($aInput) * 10
    $A = Random(0, UBound($aInput) - 1, 1)
    $B = Random(0, UBound($aInput) - 1, 1)
    $Temp = $aInput[$A]
    $aInput[$A] = $aInput[$B]
    $aInput[$B] = $Temp
Next

user3000

#Include
_RandomUnique
新加的函数，把索引随机排列下，匹配上对应值就行了
netegg 发表于 2012-1-1 19:34

    学习了! 马上查查看!

3mile

#include <array.au3>

Dim $a[18] = [1, 2, 3, 4, 5, 6, 7, 8, 9, 9, 8, 7, 6, 5, 4, 3, 2, 1]
$fin = _Array_Random($a)
_ArrayDisplay($fin)

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

5735988

其实简单的东西，请大哥，大姐们，别复杂化

5735988

风行者 的代码就不错，简单容易懂

netegg

回复 10# 5735988

不对，风行那个代码随索引变大，到最后就丧失随机性了

lpxx

回复  5735988

不对，风行那个代码随索引变大，到最后就丧失随机性了
netegg 发表于 2012-1-2 09:59

说的很对

zitoy

Local $oD = ObjCreate('Scripting.Dictionary')

第一次看到这个，找了找：

VBScript和Jscript都提供类似的对象，通称Scripting.Dictionary对象或Dictionary对象。它类似于二维数组，把键和相关条目的数据存放在一起。然而真正的面向对象的方法，不应直接访问数据条目，必须使用Dictionary对象支持的方法和属性来实现。

单毛线

向高手学习，有用的提示

chamlien

学习了，新加的函数好用