From 4f8b5ab3fb4fbe4245261fc574e3ca9d2f9412ca Mon Sep 17 00:00:00 2001 From: E7-87-83 Date: Tue, 18 May 2021 21:41:21 +0800 Subject: small modification on ch-2.pl --- challenge-113/cheok-yin-fung/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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; } -- cgit