挑战号称世界第一的凑数算法

huanghai22

时间的音符 发表于 2020-12-8 18:42
嗯 应该是排序+贪心+递归 算法吧..
不过只要一个解 你试试时间是多少.

1种组合结果要15秒多，笔记本速度比不上台式机

microyip

就是个吸睛标题党，还那么的热烈讨论干嘛

andysky

支持
有没有源码都支持，至少让大家知道了还有更好的算法，还有更多的可能。
这么多年以来大家都把以前的当成第一了，以为不会有再优秀的。当然也这是她本人亲口说出来的“第一”。

tianying

后来者超越前人是必然的，没必要嘲讽，前浪不服不行，后浪不超也不行

232670631

tianying 发表于 2020-12-9 10:22
后来者超越前人是必然的，没必要嘲讽，前浪不服不行，后浪不超也不行

前浪在拥有强大雄厚的基础知识时，也在学习进步，精益求精。后浪的基础起码需要时间积累，赶超前浪无从谈起。注意香川他们那群人，数学基底厉害，玩啥编程都轻松。

jiangxiaoyun

路过。。。。反正不太懂。只知道香川大神是真乐于分享，我还懵懵懂懂学习到洗牌算法的原理和应用。

donghui2363

咱也不懂，反正看着挺深奥的，鼓掌 吧

小花鹿

我用香川老师的代码改造了一下，同时修改了一个小小的问题，易于使用，以备不时之需：
Sub hualuchoushu()
Dim GS&                        '求解结果个数，0为全部解
Dim SD&                        '计算深度，-1为不限制，0为10^5次
Dim R&                         '元素个数
Dim N1&                        '组合个数下限，0为任意个数
Dim N2&                        '组合个数上限，0为任意个数
Dim WS&                        '小数位数，0为整数
Dim HZ1, HZ2                   'HZ1和值下限，HZ2和值上限
Dim T                          '程序开始时间
Dim ar                         '数据源数组
Dim br                         '返回符合条件的数组
Dim k&                         '返回符合条件的解的个数
T = Timer
'Range("f:i") = ""
R = Range("a" & Rows.Count).End(3).Row
ar = Range("a2:a" & R)
GS = 2
SD = -1
R = UBound(ar)
N1 = 0
N2 = 0
WS = 2
HZ1 = Range("c2")
HZ2 = 0
Call kagawa(GS, SD, N1, N2, WS, HZ1, HZ2, k, R, ar, br)
Range("f1").Resize(k + 1, UBound(br, 2) + 1) = br
MsgBox Format(Timer - T, "0.00") & "|" & k
End Sub

huanghai22

演示一下示例文件

ggmmlol

这是讨论吗？明明就是挂羊头卖狗肉，不讲武德嘛！唉，大意了，没有闪，被标题击中了！