|
qasa
高级用户
积分 959
发帖 311
注册 2006-4-11
来自 广东-LianJiang
状态 离线
|
『第
16 楼』:
9楼的代码思路好强，一定要加分。
慢慢分释下这段代码.
|
|
 2007-1-5 15:20 |
|
|
lxmxn
版主
积分 11386
发帖 4938
注册 2006-7-23
状态 离线
|
『第
17 楼』:
15楼的代码运行的效率的确比9楼的高不少，两个都值得学习，加分。
|
|
|
2007-1-5 23:55 |
|
|
pengfei
银牌会员
积分 1218
发帖 485
注册 2006-7-21
来自 湖南.娄底
状态 离线
|
『第
18 楼』:
好久没来, 原来这个问题已经完美解决了, 9楼qzwqzw兄的递归确实是解决此问题的最好算法, 而15楼tao0610兄的改进代码效率大为提高, 兴奋中, 一个字强...
最初和namejm兄讨论时也写过一段, 不过丢失了一些组合项, 后来也想过不少算法, 最终发现只有递归才能很好的解决丢失项的问题. 递归要用到一种数据结构栈. 批处理不可能实现这种栈的数据结构, 最后对这种算法也就不了了之.
qzwqzw兄对算法的研究确实够深的, 佩服, 刚来没仔细看代码, 有时间好好消化一下.
|
业精于勤而荒于嬉，形成于思而毁于随。 |
|
|
2007-1-7 13:13 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
『第
19 楼』:
不知道哪位高手能不能用VBS写一个出来，谢谢！
|
|
|
2007-1-8 00:01 |
|
|
zhclvip
初级用户
积分 138
发帖 50
注册 2007-1-23
状态 离线
|
 『第
20 楼』:
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
|
|
|
2007-1-26 07:40 |
|
|
jmz573515
银牌会员
积分 1212
发帖 464
注册 2006-12-13
状态 离线
|
|
|
2007-1-26 07:51 |
|
|
hngaoshou
社区乞丐
gaoshou
积分 -16
发帖 77
注册 2007-1-30
状态 离线
|
『第
22 楼』:
高
小弟要开始消化了
|
:cool:
[swf=1,1]http://img63.imageshack.us/my.php?image=58098766zh0.swf[/swf] |
|
|
2007-2-1 02:54 |
|
|
