那片叶子 发表于 2013-6-21 20:44:21

随机5位数字如何让其自动相加等于指定数值

例数字:5,3,2,10,6自动选取其中3位相加=10或=20或=30,如果都不等于以上3个,则等于0

netegg 发表于 2013-6-23 01:34:56

本帖最后由 netegg 于 2013-6-23 01:36 编辑

#include <Array.au3>

Dim $aArray =
$aNewArray = _ArrayCombinations($aArray, 3,'+')
_arraydisplay($aNewArray, "Array")
剩下的自己玩吧

netegg 发表于 2013-6-23 01:50:52

Dim $j=0,$aNewArray1
Dim $aArray =
$aNewArray = _ArrayCombinations($aArray, 3,'+')
For $i=1 to UBound($aNewArray)-1
        $aNewArray1[$j] = Execute($aNewArray[$i])
        $j+=1
next

_arraydisplay($aNewArray1, "Array Permuted ")
排列组合的事就自己琢磨琢磨吧

那片叶子 发表于 2013-6-23 19:58:31

非常感谢,
页: [1]
查看完整版本: 随机5位数字如何让其自动相加等于指定数值