中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-10 16:54

共 47,811 主题排行 / 349,897 发帖 / 今日 0 篇 / 48,256 会员排行

DOS批处理 & 脚本技术（批处理室） » [共同参与][挑战思路] 求一列数所有不同组合的和

可打印版本　12,615 / 21

第16楼　qasa	发表于 2007-01-05 15:20
高级用户　发帖 311　积分 959　来自广东-LianJiang
9楼的代码思路好强，一定要加分。慢慢分释下这段代码.

第17楼　lxmxn	发表于 2007-01-05 23:55
版主　发帖 4,938　积分 11,386
15楼的代码运行的效率的确比9楼的高不少，两个都值得学习，加分。

第18楼　pengfei	发表于 2007-01-07 13:13
银牌会员　发帖 485　积分 1,218　来自湖南.娄底
好久没来, 原来这个问题已经完美解决了, 9楼qzwqzw兄的递归确实是解决此问题的最好算法, 而15楼tao0610兄的改进代码效率大为提高, 兴奋中, 一个字强... 最初和namejm兄讨论时也写过一段, 不过丢失了一些组合项, 后来也想过不少算法, 最终发现只有递归才能很好的解决丢失项的问题. 递归要用到一种数据结构栈. 批处理不可能实现这种栈的数据结构, 最后对这种算法也就不了了之. qzwqzw兄对算法的研究确实够深的, 佩服, 刚来没仔细看代码, 有时间好好消化一下.

第19楼　jmz573515	发表于 2007-01-08 00:01
银牌会员　发帖 464　积分 1,212
不知道哪位高手能不能用VBS写一个出来，谢谢！

第20楼　zhclvip	发表于 2007-01-26 07:40
初级用户　发帖 50　积分 138
VBS也来捧场 dim msg,ss,ans ss="12345" For k=2 to len(ss) Combine ss,k,"" next arr=split(left(msg,Len(msg)-1),";") for j=0 to ubound(arr) rep="":res=0 for k=1 to len(arr(j)) rep=rep&mid(arr(j),k,1)&"+" res=res + Cstr(mid(arr(j),k,1)) next ans=ans&Cstr(j+1)&":"&Left(rep,Len(rep)-1)&"="&CStr(res)&vbCrLf next msgbox ans,0,"结果" Sub Combine(sar,num,str) If num=0 Then msg=msg&str&";" Else For i=1 To Len(sar) Call Combine(Right(sar,Len(sar)-i),num-1,str&Mid(sar,i,1)) Next End If End Sub

第21楼　jmz573515	发表于 2007-01-26 07:51
银牌会员　发帖 464　积分 1,212
好，学习了。

第22楼　hngaoshou	发表于 2007-02-01 02:54
社区乞丐　发帖 77　积分 -16
高小弟要开始消化了

上一页　 1 2

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023