- Added solutions by E. Choroba.

1 files changed, 25 insertions, 0 deletions

diff --git a/challenge-057/e-choroba/perl/ch-1.pl b/challenge-057/e-choroba/perl/ch-1.pl
new file mode 100755
index 0000000000..5af1aa8245
--- /dev/null
+++ b/challenge-057/e-choroba/perl/ch-1.pl
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+use feature qw{ say };
+
+use ARGV::OrDATA;
+
+use FindBin;
+use lib $FindBin::Bin;
+use Tree qw{ from_structure };
+
+sub invert {
+    my ($node, $tree) = @_;
+    return $node unless exists $tree->{$node};
+
+    my @ch = reverse @{ $tree->{$node} };
+    return $node . '(' . join(',', map invert($_, $tree), @ch) . ')'
+}
+
+chomp( my $structure = <> );
+my ($root, $tree) = from_structure($structure);
+say '(', invert($root, $tree), ')';
+
+__DATA__
+(1(2(4,5),3(6,7)))