Re: Binary Search Tree Debug Question

if ( $tree->{VALUE} > $value ) { insert( $tree->{LEFT}, $value ) } elsif ( $tree->{VALUE} < $value ) { insert( $tree->{RIGHT}, $value )
[download]

What if the data includes duplicated values? The Perl CookBook (1^st and 2^nd editions) had an additional line:

if ( $tree->{VALUE} > $value ) { insert( $tree->{LEFT}, $value ) }
elsif ( $tree->{VALUE} < $value ) { insert( $tree->{RIGHT}, $value ) 
else { warn "$value duplicated" }
[download]

or, if you want to include the duplicates, change either '>' to '>=', or '<' to '<=':

if ( $tree->{VALUE} >= $value ) { insert( $tree->{LEFT}, $value ) }
elsif ( $tree->{VALUE} < $value ) { insert( $tree->{RIGHT}, $value )
[download]

Perl: perlintro    perlretut    Basic debugging checklist
PerlMonks: How do I post a question effectively?    Markup in the Monastery    How do I post a question effectively?    I know what I mean. Why don't you?
General: How To Ask Questions The Smart Way    What every computer scientist should know about floating-point arithmetic
To Be Continued...

Comment on Re: Binary Search Tree Debug Question Select or Download Code


Perl: the Markov chain saw
	PerlMonks