用perl实现了Tree的数据结构,使用Class::Struct来实现,以下为代码:
use Data::Dumper;
use Class::Struct;
struct Node =>{
left => 'Node',
value => '$',
right => 'Node',
};
$root = Node->new;
add($root,$_) for (5,7,1,4,9,6,0,9,100,20,30,21,60);
#print Dumper $root;
print LMR($root),"/n";
print RML($root),"/n";
print MLR($root),"/n";
sub add{
my ($root,$value) = @_;
if (! defined $root->value){
$root->value($value);
return;
}
my $tmp = $root;
while($tmp){
if ($value < $tmp->value){
if (defined $tmp->left){
$tmp = $tmp->left
}
else{
Perl implement Tree data structure (1)
最新推荐文章于 2018-12-18 16:31:12 发布
这篇博客展示了如何使用Perl的Class::Struct模块创建Tree数据结构,并提供了添加节点及三种遍历方法(左序、右序、中序)。然而,作者遇到了节点不可修改的问题,这可能限制了将其转化为平衡二叉树的能力。
摘要由CSDN通过智能技术生成