计算两个正整数相乘等于1亿的所有组合

ykcbf1100

fgq5910 发表于 2024-1-12 09:54
在组合中认为[a,b],是等效的，在排列中认为两者是不等的

嗯，是这个理吧。

DevilW

按2的N次方思路解题，可以省掉穷举法的大部分循环次数

DevilW

1. Sub test()
   
2.     c = 100000000#
   
3.     ReDim ar(1 To Len(c) ^ 2, 1 To 2)
   
4.     Do While Int(c / 2 ^ n) = c / 2 ^ n
   
5.         m = m + 1
   
6.         ar(m, 1) = 2 ^ n
   
7.         ar(m, 2) = c / ar(m, 1)
   
8.         Do Until ar(m, 2) Mod 10
   
9.             m = m + 1
   
10.             ar(m, 1) = ar(m - 1, 1) * 10
    
11.             ar(m, 2) = ar(m - 1, 2) / 10
    
12.             If ar(m, 1) = ar(m, 2) Then Exit Do
    
13.         Loop
    
14.         n = n + 1
    
15.     Loop
    
16.     [G1].Resize(m, 2) = ar
    
17. End Sub

复制代码

ykcbf1100

DevilW 发表于 2024-1-12 12:23

好思路。。。

micch

10000*10000，运算量最多1万了，没多少运算量

hcm19522

D1{=IFERROR(SMALL(IF(MOD(B$2,ROW(INDIRECT("1:"&INT(SQRT(B$2)))))=0,ROW(INDIRECT("1:"&INT(SQRT(B$2))))),ROW(A1)),"")

E1=IF(D2="","",B$2/D2)