[发布]组合的算法(vbs)

[gu1dai]

一个数组所有元素的可能组合
用的是摘果子的算法。

<%
dim result
stra=split("1,2,3,4,5",",")
call combo(stra)

sub combo(str)
for i=0 to ubound(str)
ftmp=pick(str,i)
combo(ftmp)
next
end sub

function pick(strarray,k)
for i=0 to ubound(strarray)
if i<>k then temp=temp&strarray(i)&","
next
if len(temp)>1 then
temp=left(temp,len(temp)-1)
end if
ww temp
pick=split(temp,",")
end function

sub ww(t)
response.write t
response.write "<BR>"
response.flush
end sub
%>

[gu1dai]

真的阿，我怎么不知道阿。害我想了一晚上。

[笨笨兔兔兔兔兔]

这个都是固化算法,想明白一次就ok了

[gu1dai]

我感觉我的算法很好（窃笑），主要是就一个调用，特简单。
超级大笨狼的帖子。
24点算法
http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=189390
太复杂了，看的头晕。

[poonzsp]

...........

[gu1dai]

摘果子，一个个地摘下来也。

[meizz]

这个算法问题大狼曾经开过一个帖子讨论, 算法比你的精典, 你可以去看看

[gu1dai]

补充：上面的算法只是雏形而已：
今天完成了调出特定组合的元素的算法
运行下你就明白了。

<!--本過程完成對數組元素取特定組合-->

<%
dim result,geted
dim limvalue
t5=timer
ysstr=split("1,20,30,4,51",",")
main

ww timer-t5
''------------------main完成初始化，及結果處理--------------
sub main
'----------------------初始化-----------
limvalue=75
strsub=0
for j=1 to ubound(ysstr)
strsub=strsub&","&j
next
strsub=split(strsub,",")
'-----------------------開始組合---------------
call combo(strsub)
'------------------------result是全局變量，存放下標--------------
xb=split(result,",")
'------------------------輸出結果-----------------------
for i=0 to ubound(xb)
xbs=cint(xb(i))
'ww ysstr(xbs)
next
end sub
''-----------------------main結束-------------------------

''---------------------主過程 combo-----------------------
sub combo(str)
for i=0 to ubound(str)
if geted then
exit sub
end if
ftmp=pick(str,i)
combo(ftmp)
next
end sub
''----------------------子過程pick---------------------------
function pick(strarray,k)
for i=0 to ubound(strarray)
if i<>k then
temp=temp&strarray(i)&","
xb=cint(strarray(i))
numtmp=numtmp+cint(ysstr(xb))
end if
next
if numtmp=limvalue then '如果結果等於限制的結果
ww numtmp
geted=true
result=left(temp,len(temp)-1)
end if
if len(temp)>1 then
temp=left(temp,len(temp)-1)
end if

pick=split(temp,",")
end function

sub ww(t)
response.write t
response.write "<BR>"
response.flush
end sub
%>

[gu1dai]

在我的机子上测试10万次8秒。
ok，可以说是太慢了。