- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]递归函数怎么写 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196118)
-- 发布时间：2025/3/30 21:12:00
-- [求助]递归函数怎么写
有个字符串为“01-02-03”，用递归函数得到另一个字符串=‘01-02-03’，‘01-03-02’，‘02-01-03’，‘02-03-01’，‘03-01-02’，‘03-02-01’。
请教递归函数怎么写？
-- 发布时间：2025/3/31 9:42:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:全排列.zip |
-- 发布时间：2025/3/31 11:33:00
--
不用递归函数法
Dim 数组() As String = {"01", "02", "03"}
Dim 不同组合总数 As Integer = Enumerable.Range(1, 数组.count).Aggregate(1, Function(累积器, 元素) 累积器 * 元素)
Dim 组合集 As New List(Of String)
Do Until 组合集.Distinct.count >= 不同组合总数
组合集.Add( String.Join("-", 数组.OrderBy(Function(元素) Guid.NewGuid)))
Loop
Output.Show(String.Join(vbcrlf, 组合集.Distinct))
[此贴子已经被作者于2025/3/31 11:33:10编辑过]
-- 发布时间：2025/3/31 21:28:00
-- [求助]转换低版本
老师，我的是2020版本，可否转换成低版本后发我
我找到办法了，不用了。谢谢，老师
[此贴子已经被作者于2025/3/31 22:08:28编辑过]