diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-02-07 23:07:13 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-02-07 23:07:13 +0800 |
| commit | b68c2a3173eaf31b6fe9ec85fff08e26ad7974c4 (patch) | |
| tree | 6ba7254883e6a0f3f7658a30e0cf5ecad3003c3e /challenge-098 | |
| parent | 687f2ddd21a5b8eb0250e30a85ba300ecc08ac0a (diff) | |
| download | perlweeklychallenge-club-b68c2a3173eaf31b6fe9ec85fff08e26ad7974c4.tar.gz perlweeklychallenge-club-b68c2a3173eaf31b6fe9ec85fff08e26ad7974c4.tar.bz2 perlweeklychallenge-club-b68c2a3173eaf31b6fe9ec85fff08e26ad7974c4.zip | |
a binary search tree for Task 2
Diffstat (limited to 'challenge-098')
| -rw-r--r-- | challenge-098/cheok-yin-fung/perl/ch-2.pl | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/challenge-098/cheok-yin-fung/perl/ch-2.pl b/challenge-098/cheok-yin-fung/perl/ch-2.pl index b52d03b949..fb5fb50a5d 100644 --- a/challenge-098/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-098/cheok-yin-fung/perl/ch-2.pl @@ -29,13 +29,6 @@ sub set_order { $_[0]->{_order} = $_[1]; } sub set_leftchild { $_[0]->{_leftchild} = $_[1]; } sub set_rightchild { $_[0]->{_rightchild} = $_[1]; } -sub create_tree_from_ordered_array { - my $self = $_[0]; - my @sorted_stuff = @{$_[1]}; - $self->insert(\@sorted_stuff, 0, $#sorted_stuff); - return $self; -} - sub search { my $aRoot = $_[0]; my $target = $_[1]; |