关于tree：erlang中的双链接数据结构

Doubly linked data structures in erlang

嗨，我想制作一棵在父子之间保持双向引用的树。但是似乎无法实现，因为当我创建第一个对象时，我没有另一个对象，因此无法对其进行引用。这是一些示例代码。

1
2
3
4
5
6
7
8
9
10

-record(node,{name,children,root}).

main()->
A = #node{name="node-A",
children=[B], %variable B is unbound
root=nil},
B = #node{name="node-B",
children=[],
root=A},
Tree = A.

此问题的另一个示例是实现双向链接列表(http://zh.wikipedia.org/wiki/双向链接列表)

1
2
3
4
5
6
7
8
9
10

-record(node,{prev,name,next}).

main()->
A = #node{prev=nil,
name="node-A",
next=B}, % variable B is unbound
B = #node{prev=A,
name="node-B",
next=nil},
LinkedList = A.

有没有一种方法可以实现这种结构。

相关讨论

不，由于所有数据都是不可变的，因此没有直接的方法可以在Erlang中实现双向链接列表。而且即使您可以设置它(您不能设置)，您也无法做任何事情，因为所有数据都是不可变的。此处介绍的其他解决方案通过构建以双链表方式运行的数据结构，向您展示了解决此问题的方法。但是不是。

您可以定义类似

的记录

-record(my_node，{leftchild，rightchild，parent，value}。

并将树存储在ets表中，

1 2	ets:new(my_tree,[named_table, ordered_set, public]), ...

，然后您可以使用表键作为"指针"来管理链接。

1
2
3
4
5
6
7
8
9
10
11
12

Root = {make_ref(),#my_node{value=somevalue}}
ets:insert(my_tree,Root),
A_child = {make_ref(),#my_node{value=othervalue}},
addchild(Root,A_child,left),
...

addchild(Parent={Pref,Pval},Child={Cref,Cval},left) ->
ets:insert(my_tree,{Pref,Pval#my_node{leftchild=Cref}}),
ets:insert(my_tree,{Cref,Cval#my_node{parent=Pref}});
addchild(Parent={Pref,Pval},Child={Cref,Cval},right) ->
ets:insert(my_tree,{Pref,Pval#my_node{rightchild=Cref}}),
ets:insert(my_tree,{Cref,Cval#my_node{parent=Pref}}).

但是也许您应该查看更多的" erlang样式"数据表示形式来解决您的问题。如果有多个进程访问树，则我提出的解决方案也存在问题，因为树的更新不是原子的。在这种情况下，您应该使用mnesia，这是ets之上的数据库层，它将为您带来原子事务。

您可以检查如何在ferd的拉链库中实现此操作