From b68c2a3173eaf31b6fe9ec85fff08e26ad7974c4 Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Sun, 7 Feb 2021 23:07:13 +0800
Subject: a binary search tree for Task 2

---
 challenge-098/cheok-yin-fung/perl/ch-2.pl | 7 -------
 1 file changed, 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];
-- 
cgit