【已解决】枚举字符串中所有字符的组合（论坛有类似的，但是不是我想要的）

黑色袜子

论坛P大有一个贴子也是这样的。但是他的是这样的

1
2
3
1 2
2 3 
1 3
1 2 3

而我要的是这样的

1
2
3
11
12
13
21
22
23
31
32
33
111
112
113
121
122
123
。。。。

P大的贴子http://www.autoitx.com/forum.php ... B6%BE%D9&page=1

nhnhwsnh

这个要靠递归来实现啦


#include <Array.au3>

Local $myArray[5] = [1, 2, 3, 4, 5]
Local $str[1] = [""]

getnewstr($str, $myArray)

Func getnewstr($strarray, $aArray)
        Local $newstrarray[0]
        For $i = 0 To UBound($strarray) - 1
                For $j = 0 To UBound($aArray) - 1
                        _ArrayAdd($newstrarray, $strarray[$i] & $aArray[$j])
                        ConsoleWrite($strarray[$i] & $aArray[$j] & @CRLF)
                Next
        Next
        If StringLen($newstrarray[0]) < UBound($aArray) Then
                getnewstr($newstrarray, $aArray)
        EndIf
EndFunc   ;==>getnewstr

luren666

这个等于是穷举了所有的可能的组合，随着数组元素的增加，运算量也是呈指数级的增长。

luren666

假如数组元素数量为X，则结果的数量是X的X次方。