多叉树路径遍历

小花鹿 · 发表于 2020-10-27 18:18

应该用递归吧

larer · 发表于 2020-10-27 18:53

没有说明为什么10后面不能接11,让人摸不着头脑,折腾人.

准提部林 · 发表于 2020-10-27 19:32

若15 後面出3 或7, 繞不完???

Datous · 发表于 2020-10-27 20:11

本帖最后由 Datous 于 2020-10-27 23:11 编辑

我也献一下丑，自己都倒腾糊涂了，

还是10楼大侠做得好
明天改改

993242526 · 发表于 2020-10-28 15:18

larer 发表于 2020-10-27 18:53
没有说明为什么10后面不能接11,让人摸不着头脑,折腾人.

额，因为输入里面没有（10，11）这样的数组呀，两个数组要出现头尾相同的情况啦，比如就是（1，3）（3，7），那就需要生成（1，3，7）

993242526 · 发表于 2020-10-28 15:19

准提部林发表于 2020-10-27 19:32
若15 後面出3 或7, 繞不完???

不会哦，能够保证A列一定是从小到大，路径一定是能从上到下一直下去，不会循环上来

993242526 · 发表于 2020-10-28 15:20

Datous 发表于 2020-10-27 20:11
我也献一下丑，自己都倒腾糊涂了，
还是10楼大侠做得好
明天改改

0-0也非常感谢您哦

liulang0808 · 发表于 2020-10-29 09:56

Sub 按钮1_Click()
Dim brr()
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = UBound(arr) To 2 Step -1
      If Len(arr(j, 2)) > 0 Then
         d(arr(j, 2)) = arr(j, 1)
      End If
Next j
r = 0
Columns("p:p").ClearContents
For Each k In d.keys
      t = d(k)
      str1 = t & "," & k
l1:
      If d.exists(t) Then
         t = d(t)
         str1 = t & "," & str1
         GoTo l1
      Else
         r = r + 1
         Cells(r, "p") = str1
      End If
Next
End Sub

liulang0808 · 发表于 2020-10-29 09:57

凑个热闹，看看是否合适吧

Datous · 发表于 2020-10-29 10:50

liulang0808 发表于 2020-10-29 09:57
凑个热闹，看看是否合适吧

d(b列)=a列比 d(a列)=b列简单多了
终端字典不可能重复
分叉节点的字典，处理起来就麻烦太多了

		自动登录	找回密码
密码			免费注册

[求助] 多叉树路径遍历

评分