diff options
| -rw-r--r-- | challenge-113/cheok-yin-fung/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-113/cheok-yin-fung/perl/ch-2.pl b/challenge-113/cheok-yin-fung/perl/ch-2.pl index 57ddee363b..786996c7d2 100644 --- a/challenge-113/cheok-yin-fung/perl/ch-2.pl +++ b/challenge-113/cheok-yin-fung/perl/ch-2.pl @@ -84,5 +84,5 @@ sub tree_build { # use for print_pretty_tree my %leaf = ( "v" => $t[$ind] ); $leaf{"l"} = tree_build(\@t, $ind*2+1) if defined($t[$ind*2+1]); $leaf{"r"} = tree_build(\@t, $ind*2+2) if defined($t[$ind*2+2]); - return \@t, $ind, \%leaf; + return \%leaf; } |