[已解决]一个排列的算法问题。

298311657

#include <Array.au3>
$begin = TimerInit()
Dim $String = "AB-CD-EF-GH-IJ-KL"
Dim $String_Arr = StringSplit($String, "-")
Dim $Out_Num = Int(2 ^ $String_Arr[0])
Dim $Out_String_Arr[1 + $Out_Num] = [$Out_Num]
Dim $New_String_Arr[1 + $String_Arr[0] * 2] = [$String_Arr[0] * 2]

For $i = 1 To $String_Arr[0]
        $New_String_Arr[$i * 2 - 1] = $String_Arr[$i]
        $New_String_Arr[$i * 2] = StringMid($String_Arr[$i], 2) & StringMid($String_Arr[$i], 1, 1)
Next

$n = 1
For $i = 1 To 2
        For $j = 3 To 4
                For $k = 5 To 6
                        For $c = 7 To 8
                                For $d = 9 To 10
                                        For $e = 11 To 12
                                                $Out_String_Arr[$n] = $New_String_Arr[$i] & "-" & _
                                                                $New_String_Arr[$j] & "-" & _
                                                                $New_String_Arr[$k] & "-" & _
                                                                $New_String_Arr[$c] & "-" & _
                                                                $New_String_Arr[$d] & "-" & _
                                                                $New_String_Arr[$e]
                                                                $n += 1
                                        Next
                                Next
                        Next
                Next
        Next
Next
_ArrayDisplay($Out_String_Arr, "时间(ms):" & TimerDiff($begin))

数学不行，唉~

roczyl

楼上写出代码的同志，我有个人人的PT站邀请码，需要的请联系我。我只有1个。先来先得。
再次感谢！