[开_86] 比速度,看谁的程序更快.

luzwales

我不用递归， 类似双指针+ 二分法，绝地比这个快很多！

wanghui834

新手，不会递归，用普通算法写了一个，但是不知道具体有多少组，就随便写了个30组，大概6秒

1. Sub 凑数()
   
2. t1 = Timer
   
3. Dim Arr, a&, b&, i%, Brr(), Crr()
   
4. Dim Coll1 As New Collection, coll2 As New Collection
   
5. row1 = ActiveSheet.Cells.Find("*", ActiveSheet.Cells(1, 1), xlValues, xlWhole, xlByRows, xlPrevious).Row
   
6. Arr = Range("a1:a" & row1)
   
7. a = 88
   
8. 
   
9. For i = 1 To UBound(Arr)
   
10.     Coll1.Add Arr(i, 1), CStr(i)
    
11. '    ReDim Preserve brr(1 To i)
    
12. '    brr(i) = Coll.Item(i)
    
13. Next i
    
14. Dim dic As New Dictionary, dic2 As New Dictionary
    
15. 'Set Coll2 = Coll1
    
16. Do
    
17.     DoEvents
    
18.     b = Application.WorksheetFunction.RandBetween(5, 13)
    
19.     Do
    
20.         DoEvents
    
21.         bb = Application.WorksheetFunction.RandBetween(1, UBound(Arr))
    
22.         If Not dic.Exists(bb) Then
    
23.             dic.Add bb, i
    
24.         End If
    
25.     Loop Until dic.Count = b
    
26.     For Each Key In dic.Keys
    
27.         coll2.Add Key
    
28.     Next Key
    
29.     ReDim Brr(1 To b)
    
30.     For i = 1 To b
    
31.         Brr(i) = Coll1(coll2(i))
    
32.     Next i
    
33.     Str1 = Join(Brr, "+")
    
34.     sm = Evaluate(Str1)
    
35.     If sm = a Then
    
36.         If Not dic2.Exists(Str1) Then
    
37.             dic2.Add Str1, 1
    
38.         End If
    
39.         ReDim Crr(1 To dic2.Count)
    
40.         Crr = dic2.Keys
    
41.     '    Exit Do
    
42.     End If
    
43.     dic.RemoveAll
    
44.     Set coll2 = Nothing
    
45.     Erase Brr
    
46. Loop Until dic2.Count = 30
    
47. Columns(3).Clear
    
48. Range("c1").Resize(UBound(Crr)) = Application.WorksheetFunction.Transpose(Crr)
    
49. t = Timer - t1
    
50. MsgBox t
    
51. End Sub
    

复制代码

wanghui834

wanghui834 发表于 2024-11-1 10:16
新手，不会递归，用普通算法写了一个，但是不知道具体有多少组，就随便写了个30组，大概6秒

把数字排序了一下

wanghui834

wanghui834 发表于 2024-11-1 10:54
把数字排序了一下

90组6秒多，还需要继续改进

wanghui834

UNARTHUR 发表于 2006-7-2 16:14
今天正好有空，也来凑凑热闹，一道递归算法的典型教学题。测试结果：(1) 20,19,18,....,1(88)    ...

膜拜大神