perl实现二叉树
摘要：
最开始写的代码，每个结点用一个匿名哈希来表示，可惜运行时错误。。。代码如下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& 阅读全文
posted @ 2011-11-14 18:03 perlman 阅读(1173) 评论(0) 推荐(0) 编辑
