diff options
| -rw-r--r-- | challenge-113/james-smith/perl/ch-2.pl | 27 |
1 files changed, 19 insertions, 8 deletions
diff --git a/challenge-113/james-smith/perl/ch-2.pl b/challenge-113/james-smith/perl/ch-2.pl index 47c2f4c84e..53a05bf5d7 100644 --- a/challenge-113/james-smith/perl/ch-2.pl +++ b/challenge-113/james-smith/perl/ch-2.pl @@ -36,6 +36,8 @@ $x->walk( sub { my( $node, $global, $local ) = @_; $global->{'tree'} = Tree->new( $node->[0] ); return $global->{'tree'}; }, $clone ); +say; +say 'Original tree code'; my $y = $clone->{'tree'}; say ''; @@ -57,13 +59,18 @@ is( "@{[ $x->flatten ]}", '1 2 4 7 3 5 6' ); is( "@{[ $y->flatten ]}", '27 26 24 21 25 23 22' ); say ''; -$x = BinaryTree->new(1)->add_child_left( - BinaryTree->new(2)->add_child_left( - BinaryTree->new(4)->add_child_right( BinaryTree->new(7) ) - ) - )->add_child_right( - BinaryTree->new(3)->add_child_left( BinaryTree->new(5))->add_child_right( BinaryTree->new(6) ) - ); +$x = BinaryTree->new(1) + ->add_child_left( + BinaryTree->new(2) + ->add_child_left( + BinaryTree->new(4) + ->add_child_right( BinaryTree->new(7) ) + ) + )->add_child_right( + BinaryTree->new(3) + ->add_child_left( BinaryTree->new(5) ) + ->add_child_right( BinaryTree->new(6) ) + ); ## Generate clone of $x, and compute the total of all the nodes... @@ -76,8 +83,12 @@ $x = BinaryTree->new(1)->add_child_left( $y; +say ' +Now using the binary specific code - with clone/dump/flatten methods +added into the class implemented by walk + +'; -say ''; say 'Dump $x'; $x->dump( sub { "[$_[0]]"; } ); say ''; |