diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-04-26 00:37:10 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-04-26 00:37:10 +0100 |
| commit | cfe34bf9ca198844877a9cd6b7ab831fd2cf8242 (patch) | |
| tree | 15f2b58cd461f4d4319b2715814cbbe36520baeb | |
| parent | 9a2c1fc95abf1c1bd21d7e064df558c4628b9644 (diff) | |
| parent | 62359b25ede40076e8cae20aa687d2e9c7608b00 (diff) | |
| download | perlweeklychallenge-club-cfe34bf9ca198844877a9cd6b7ab831fd2cf8242.tar.gz perlweeklychallenge-club-cfe34bf9ca198844877a9cd6b7ab831fd2cf8242.tar.bz2 perlweeklychallenge-club-cfe34bf9ca198844877a9cd6b7ab831fd2cf8242.zip | |
Merge pull request #1625 from choroba/ech057c
Remove unneeded argument
| -rw-r--r-- | challenge-057/e-choroba/perl/Tree.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-057/e-choroba/perl/Tree.pm b/challenge-057/e-choroba/perl/Tree.pm index d64b158745..a0a4a8a51f 100644 --- a/challenge-057/e-choroba/perl/Tree.pm +++ b/challenge-057/e-choroba/perl/Tree.pm @@ -43,12 +43,12 @@ sub invert { } sub to_structure { - my ($node, $tree, $inner) = @_; + my ($node, $tree) = @_; return $node unless exists $tree->{$node}; my @children = @{ $tree->{$node} }; my $output = $node . '(' - . join(',', map to_structure($_, $tree, 1), @children) . ')'; + . join(',', map to_structure($_, $tree), @children) . ')'; return $output } |