设为首页 收藏本站
查看: 1274|回复: 0

[经验分享] perl实现二叉树

[复制链接]

尚未签到

发表于 2015-12-27 07:55:25 | 显示全部楼层 |阅读模式
  最开始写的代码,每个结点用一个匿名哈希来表示,可惜运行时错误。。。代码如下



use strict ;
use warnings ;
sub create_tree {
    my $n8 = {
        'left' => undef ,
        'right' => undef ,
        'value' => 8 ,
    } ;
    my $n6 = {
        'left' => undef ,
        'right' => \$n8 ,
        'value' => 6 ,
    };
    my $n5 = {
        'left' => undef ,
        'right' => undef ,
        'value' => 5 ,
    };
    my $n7 = {
        'left' => undef ,
        'right' => undef ,
        'value' => 7 ,
    };
    my $n2 = {
        'left' => \$n5 ,
        'right' => \$n6 ,
        'value' => 2 ,
    };
    my $n4 = {
        'left' => \$n7 ,
        'right' => undef ,
        'value' => 4 ,
    };
    my $n1 = {
        'left' => \$n2 ,
        'right' => \$n4 ,
        'value' => 1 ,
    };
    return $n1 ;
}
sub print_tree {
    my $root = shift ;
    if ($root) {
        print $root->{value}, "\n" ;
        if ($root->{left}) {
            &print_tree($root->{left}) ;
        }
        if($root->{right}) {
            &print_tree($root->{right}) ;
        }
    }
}
sub main {
    my $root = &create_tree() ;
    &print_tree($root) ;
}
&main() ;
1 ;
  修改一下就可以了,因为$n8, $n6等本来就是引用,当他们作为其他结点的叶子结点时,不用再加\了,修改如下:



use strict ;
use warnings ;
sub create_tree {
    my $n8 = {
        'left' => undef ,
        'right' => undef ,
        'value' => 8 ,
    } ;
    my $n6 = {
        'left' => undef ,
        'right' => $n8 ,
        'value' => 6 ,
    };
    my $n5 = {
        'left' => undef ,
        'right' => undef ,
        'value' => 5 ,
    };
    my $n7 = {
        'left' => undef ,
        'right' => undef ,
        'value' => 7 ,
    };
    my $n2 = {
        'left' => $n5 ,
        'right' => $n6 ,
        'value' => 2 ,
    };
    my $n4 = {
        'left' => $n7 ,
        'right' => undef ,
        'value' => 4 ,
    };
    my $n1 = {
        'left' => $n2 ,
        'right' => $n4 ,
        'value' => 1 ,
    };
    return $n1 ;
}
sub print_tree {
    my $root = shift ;
    if ($root) {
        print $root->{value}, "\n" ;
        if ($root->{left}) {
            &print_tree($root->{left}) ;
        }
        if($root->{right}) {
            &print_tree($root->{right}) ;
        }
    }
}
sub main {
    my $root = &create_tree() ;
    &print_tree($root) ;
}
&main() ;
1
  心血来潮,又试了另外一种方法,结点用实名哈希表示,当结点作为其他结点的子结点时,用引用表示,此法虽不简洁,但可运行



use strict ;
use warnings ;
sub create_tree {
    my %n8 = (
        'left' => undef ,
        'right' => undef ,
        'value' => 8 ,
    ) ;
    my %n6 = (
        'left' => undef ,
        'right' => \%n8 ,
        'value' => 6 ,
    );
    my %n5 = (
        'left' => undef ,
        'right' => undef ,
        'value' => 5 ,
    );
    my %n7 = (
        'left' => undef ,
        'right' => undef ,
        'value' => 7 ,
    );
    my %n2 = (
        'left' => \%n5 ,
        'right' => \%n6 ,
        'value' => 2 ,
    );
    my %n4 = (
        'left' => \%n7 ,
        'right' => undef ,
        'value' => 4 ,
    );
    my %n1 = (
        'left' => \%n2 ,
        'right' => \%n4 ,
        'value' => 1 ,
    );
    return \%n1 ;
}
sub print_tree {
    my $root = shift ;
    if ($root) {
        print $root->{value}, "\n" ;
        if ($root->{left}) {
            &print_tree($root->{left}) ;
        }
        if($root->{right}) {
            &print_tree($root->{right}) ;
        }
    }
}
sub main {
    my $root = &create_tree() ;
    &print_tree($root) ;
}
&main() ;
1
  一时兴起,又试了一种方法,此法更简单,直接按树形构造哈希表。



use strict ;
use warnings ;
sub create_tree {
    my %root = (
        'left' => {
            'left' => {
                'left' => undef,
                'right' => undef,
                'value' => 5,
            },
            'right' => {
                'left' => undef,
                'right' => {
                    'left' => undef,
                    'right' => undef,
                    'value' => 8,
                },
                'value' => 6,
            },
            'value' => 2,
        },
        'right' => {
            'left' => {
                'left' => undef,
                'right' => undef,
                'value' => 7,
            },
            'right' => undef,
            'value' => 4,
        },
        'value' => 1,
    ) ;
    return \%root;
}
sub print_tree {
    my $root = shift ;
    if ($root) {
        print $root->{value}, "\n" ;
        &print_tree($root->{left}) ;
        &print_tree($root->{right}) ;
    }
}
sub main {
    my $root = &create_tree() ;
    &print_tree($root) ;
}
&main() ;
1
  闲来无事,又写了一种方法:这应该是最好的方法了。



use strict ;
use warnings ;
sub node {
    my ($left, $right, $value) = @_ ;
    my $self = {
        'left' => $left,
        'right' => $right,
        'value' => $value,
    } ;
    return $self ;
}
sub create_tree {
    my $n8 = &node(undef, undef, 8) ;
    my $n6 = &node(undef, $n8, 6) ;
    my $n5 = &node(undef, undef, 5) ;
    my $n2 = &node($n5, $n6, 2) ;
    my $n7 = &node(undef, undef, 7) ;
    my $n4 = &node($n7, undef, 4) ;
    my $n1 = &node($n2, $n4, 1) ;
    return $n1;
}
sub print_tree {
    my $root = shift ;
    if ($root) {
        print $root->{value}, "\n" ;
        &print_tree($root->{left}) ;
        &print_tree($root->{right}) ;
    }
}
sub main {
    my $root = &create_tree() ;
    &print_tree($root) ;
}
&main() ;
1 ;
  还有其他方法么?

  == THE END ==

运维网声明 1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com

所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其承担任何法律责任,如涉及侵犯版权等问题,请您及时通知我们,我们将立即处理,联系人Email:kefu@iyunv.com,QQ:1061981298 本贴地址:https://www.yunweiku.com/thread-156781-1-1.html 上篇帖子: Solaris 下安装Perl的DBD-mysql模块失败的原因以及解决办法 下篇帖子: linux下perl操作mysql数据库
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

扫码加入运维网微信交流群X

扫码加入运维网微信交流群

扫描二维码加入运维网微信交流群,最新一手资源尽在官方微信交流群!快快加入我们吧...

扫描微信二维码查看详情

客服E-mail:kefu@iyunv.com 客服QQ:1061981298


QQ群⑦:运维网交流群⑦ QQ群⑧:运维网交流群⑧ k8s群:运维网kubernetes交流群


提醒:禁止发布任何违反国家法律、法规的言论与图片等内容;本站内容均来自个人观点与网络等信息,非本站认同之观点.


本站大部分资源是网友从网上搜集分享而来,其版权均归原作者及其网站所有,我们尊重他人的合法权益,如有内容侵犯您的合法权益,请及时与我们联系进行核实删除!



合作伙伴: 青云cloud

快速回复 返回顶部 返回列表