From 62359b25ede40076e8cae20aa687d2e9c7608b00 Mon Sep 17 00:00:00 2001 From: "E. Choroba" Date: Sun, 26 Apr 2020 01:27:56 +0200 Subject: Remove unneeded argument --- challenge-057/e-choroba/perl/Tree.pm | 4 ++-- 1 file 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 } -- cgit