Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic

Re: Combining Branches in Trees

by Lexicon (Chaplain)
on May 06, 2004 at 07:54 UTC ( #351017=note: print w/replies, xml ) Need Help??

in reply to Combining Branches in Trees

Just to be thorough, I thought I'd include some testing code to give more hints as to how this is supposed to work.
#!/usr/bin/perl use warnings; use strict; use Data::Dumper; # Be sure to copy the subroutine code into here. my @tree1 = ( [ [ 'red', 'orange', 'yellow', undef, undef, + undef ], [ undef, undef, undef, 'cyan', 'magent +a', 'black' ] ], [ [ 'red', undef, 'yellow', undef, 'magent +a', undef ], [ undef, 'orange', undef, 'cyan', undef, + 'black' ] ], ); my @done =( [ [ 'red', 'orange', 'yellow', 'cyan', 'magent +a', 'black' ], [ 'red', 'orange', 'yellow', 'cyan', 'magent +a', 'black' ] ] ); my @tree2 = Combine_Branches (\@tree1, 1, 3); my $done_string = Dumper(@done); my $tree2_string = Dumper(@tree2); print "Combine_Branches(\@tree1, 0, 3);\n"; if ( $done_string ne $tree2_string ) { print "Ack, not the same.\n"; print "$tree2_string\n"; print "$done_string\n"; } else { print "Everything is joy.\n" }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://351017]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others having an uproarious good time at the Monastery: (6)
As of 2017-05-29 00:46 GMT
Find Nodes?
    Voting Booth?