又见飘零

--y0h在线

一个全排列的解法[原创]

死鱼的命题!!
简单写一下!

<%
Function Test(Max,x,Str1)
If x>0 Then
For I=1 to Max
If Instr(Str1,","&i&",")=0 Then
Test Max,x-1,Str1&i&","
End IF
Next
Else
Response.Write(Str1&"
")
End IF
'Response.Write(Str1&"
")
End Function

Max=3
Str1=","
Test Max,Max,Str1
%>

阅读更多
文章标签: function
个人分类: 原创天地 ASP相关
想对作者说点什么? 我来说一句

组合数学中的全排列生成算法

2009年10月22日 124KB 下载

没有更多推荐了,返回首页

不良信息举报

一个全排列的解法[原创]

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭