做题

yynrzwh

ynzsvt 发表于 2024-7-20 10:11
3        1        2        1        3        2        0
1        3        1        2        0      ...

第1个数(不能是0)小于或等于最后1个数。

ynzsvt

11个要10分钟，多了更不敢试了。

yynrzwh

ynzsvt 发表于 2024-7-20 18:27
11个要10分钟，多了更不敢试了。

大佬你这逻辑有点复杂啊，绕来绕去的绕得头晕。
n=1时应该有1组结果的，你的是0.

ynzsvt

11个数120秒。

1. Dim r&, m&, n&
   
2. Sub 排数逻辑()
   
3. Dim ar(), br(), i&
   
4. Dim T#
   
5. T = Timer
   
6. r = 2
   
7. n = [C1]: m = n * 2
   
8. ReDim ar(0 To n)
   
9. ReDim br(0 To m)
   
10. For i = 0 To UBound(ar): ar(i) = i: Next i
    
11. Call SMZ(ar, br, 0)
    
12. 
    
13. [I1] = r - 2
    
14. [L1] = Timer - T
    
15. End Sub
    
16. 
    
17. Sub SMZ(ByVal ar, ByVal br, ByVal Key)
    
18. ' Cells(r, 1).Resize(1, m + 1) = br: Cells(r, m + 2) = Key
    
19. ' r = r + 1
    
20. Dim i&, StarW&
    
21. If Key = 0 Then
    
22.   For i = 1 To UBound(ar) - 1
    
23.    ar(i) = ""
    
24.    br(0) = i: br(i + 1) = i
    
25.    Call SMZ(ar, br, -1)
    
26.    ar(i) = i
    
27.    br(0) = "": br(i + 1) = ""
    
28.   Next i
    
29. End If
    
30. If Key = -1 Then
    
31.   For i = br(0) + 1 To UBound(ar)
    
32.    If Len(br(m - i - 1)) = 0 Then
    
33.     ar(i) = ""
    
34.     br(m) = i: br(m - i - 1) = i
    
35.     Call SMZ(ar, br, 1)
    
36.     ar(i) = i
    
37.     br(m) = "": br(m - i - 1) = ""
    
38.    End If
    
39.   Next i
    
40. End If
    
41. If Key > 0 Then
    
42.   Dim Pd As Boolean
    
43.   For i = 0 To UBound(ar)
    
44.    If Len(ar(i)) <> 0 Then
    
45.     Pd = True
    
46.     For StarW = Key To m
    
47.      If Len(br(StarW)) = 0 Then Exit For
    
48.     Next
    
49.     If i = 0 Then
    
50.      ar(i) = ""
    
51.      br(StarW) = i
    
52.      Call SMZ(ar, br, StarW + 1)
    
53.      ar(i) = i
    
54.      br(StarW) = ""
    
55.     Else
    
56.      If StarW + i + 1 <= m Then
    
57.       If Len(br(StarW + i + 1)) = 0 Then
    
58.        ar(i) = ""
    
59.        br(StarW) = i: br(StarW + i + 1) = i
    
60.        Call SMZ(ar, br, StarW + 1)
    
61.        ar(i) = i
    
62.        br(StarW) = "": br(StarW + i + 1) = ""
    
63.       End If
    
64.      End If
    
65.     End If
    
66.    End If
    
67.   Next i
    
68.   If Not Pd Then Cells(r, 1).Resize(1, m + 1) = br: r = r + 1
    
69. End If
    
70. End Sub
    

复制代码

yynrzwh

ynzsvt 发表于 2024-7-21 11:57
11个数120秒。

这代码，让人望而却步，看一眼都头晕。
都不知怎么想出来的。好像也还是递归？

ynzsvt

yynrzwh 发表于 2024-7-21 12:52
这代码，让人望而却步，看一眼都头晕。
都不知怎么想出来的。好像也还是递归？

首尾先处理，后处理中间。

yynrzwh

本来想转为VBA试下，可惜位运算不知怎么写

转为python试了下

这....差别也太大了