求助简单测试数据

陆离Lowry · 发表于 2023-1-25 19:02

数论发表于 2023-1-25 18:30
测试好像没有问题，请陆离老师介绍一下您的算法，让我学习一下，谢谢。

把数字按每一位的数字排序，然后字典去重，再把去重以后的数字去算次方和，再放字典里，如果和存在了就是有

陆离Lowry · 发表于 2023-1-25 19:05

陆离Lowry 发表于 2023-1-25 19:02
把数字按每一位的数字排序，然后字典去重，再把去重以后的数字去算次方和，再放字典里，如果和存在了就是 ...

只判断有和没有还是不难，要把数据和和列出来就要循环好几次的感觉

micch · 发表于 2023-1-25 23:32

大概试了下，没检查，看其他老师的代码互相验证吧。

显示有1万多个不重复的7位数，并且对应的7次方和没有重复的。

Sub test7()
t = Timer
Dim d As Object, d1 As Object
Set d = CreateObject("scripting.dictionary")
Set d1 = CreateObject("scripting.dictionary")
For i = 1000000 To 9999999
s = sortNum(i)
If Not d.exists(s) Then
d(s) = m
m = Sqr7(s)
If d1.exists(m) Then
Debug.Print "it's the same", d1(m), s
Exit For
Else
d1(m) = s
End If
End If
Next
MsgBox Timer - t & "_" & d.Count
Set d = Nothing
Set d1 = Nothing
End Sub
Function sortNum(x)
Dim ar(9) As String, k
k = Len(x)
For i = 1 To k
s = Mid(x, i, 1)
ar(s) = ar(s) & s
Next
sortNum = Join(ar, "")
End Function
Function Sqr7(x)
For i = 1 To Len(x)
Sqr7 = Sqr7 + Mid(x, i, 1) ^ 7
Next
End Function

复制代码

wodewan · 发表于 2023-1-26 11:39

关于去重：
123和321以及231都是一样的结果，纯暴力搜索会多次计算重复结果，可以用带重复元素的组合的递归算法来去重多余的计算，可很大的提高运行效率，当位数达到9位，指数为7时，也就是从100000000到999999999时，算7次方，如果纯暴力搜索，估计花时会很长，但用组合只要2秒多可得到10组符合要求的结果。
测试如下，仅供参考：

wodewan · 发表于 2023-1-26 20:07

挺有意思的一题目，对于幂的计算虽然不知道是否有其他方法，但对于VBA的写法还是有很多可以发掘的地方，刚刚测试发现为什么同样位数的数的7次方比6次方计算慢了好多倍，原以为是计算幂的问题，想想也不至于差这么多，突然想起来还是之前讨论过的一个字典加入元素的效率问题（大概的意思就是key如果是大数（数值型），转换为字符串，效率会提升很大），竟然忘了，更新一下，同样的数据，上面的9位数7次方的计算可从2.3秒提升到0.39秒，同时删除sum参数的类型，效率下降可忽略，但可支持更多位数数字的计算，避免溢出。

leolee82 · 发表于 2023-1-26 20:25

wodewan 发表于 2023-1-26 20:07
挺有意思的一题目，对于幂的计算虽然不知道是否有其他方法，但对于VBA的写法还是有很多可以发掘的地方，刚 ...

可以弄个数组保存0-10的7次方结果，用到x7次方时直接用arr(x)。细节上也可以再优化下，比如0和1的7次方也是0和1，但增加了判断，不知道速度是提升还是变慢

wodewan · 发表于 2023-1-27 11:12

leolee82 发表于 2023-1-26 20:25
可以弄个数组保存0-10的7次方结果，用到x7次方时直接用arr(x)。细节上也可以再优化下，比如0和1的7次方也 ...

嗯，对，这个我也试过，效率上几乎没什么差别，就没改，貌似各种语言对单纯数值运算的效率都很高。

准提部林 · 发表于 2023-1-27 13:55

主題在:兩個無序有重覆的長數字, 如何比對其相同或相異???
因為不想先排序數字,
直接用公式去分拆^次方再以其和值比對, 問題是..究竟要用"幾次方"...才能百分百不發生誤判???

所以才用VBA來驗證~~
其實這個方法, 不管用幾次方, 總是心裡沒個底~~

wodewan · 发表于 2023-1-27 15:01

准提部林发表于 2023-1-27 13:55
主題在:兩個無序有重覆的長數字, 如何比對其相同或相異???
因為不想先排序數字,
直接用公式去分拆^次方再 ...

被老师说糊涂了，又看了一遍题目，没提到.究竟要用"幾次方"...，不是固定的几次方吗？（例如题目中的7次方，不固定怎么算？）也没什么用公式分拆，而是给定一个区间，比如4位数1000-9999，看是否存在2个不同组合而不是排列，是否其N次方的和结果相同。

准提部林 · 发表于 2023-1-27 15:37

wodewan 发表于 2023-1-27 15:01
被老师说糊涂了，又看了一遍题目，没提到.究竟要用"幾次方"...，不是固定的几次方吗？（例如题目中的7次 ...

7次方只是其中一個方案, 也許是8或9次方,
是想測試兩個"長得"不一樣數字串中的個別數字分別^?次方後, 再加總,
會不會產生相同的加總數, 但其實兩個數字串(排序後)却不一樣???

樓主是使用了一個數組公式, 用來比較兩個區不同位置數字是否相同?
那公式用了次方做轉合, 但不確定用7次方是否可以百分百正確~~
所以來vba將所有數字都驗證一番~~

		自动登录	找回密码
密码			免费注册

[求助] 求助简单测试数据

评分

评分

评分

评分