diff options
| author | E7-87-83 <fungcheokyin@gmail.com> | 2021-05-18 21:41:21 +0800 |
|---|---|---|
| committer | E7-87-83 <fungcheokyin@gmail.com> | 2021-05-18 21:41:21 +0800 |
| commit | 4f8b5ab3fb4fbe4245261fc574e3ca9d2f9412ca (patch) | |
| tree | 992e16cf4aae443a680d4291de63e93be0d202b6 | |
| parent | 1fdb1a77d9671241ac163b6f12b142f29b249555 (diff) | |
| download | perlweeklychallenge-club-4f8b5ab3fb4fbe4245261fc574e3ca9d2f9412ca.tar.gz perlweeklychallenge-club-4f8b5ab3fb4fbe4245261fc574e3ca9d2f9412ca.tar.bz2 perlweeklychallenge-club-4f8b5ab3fb4fbe4245261fc574e3ca9d2f9412ca.zip | |
small modification on ch-2.pl
| -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; } |