- Added solutions by Reinier Maliepaard.

2 files changed, 27 insertions, 0 deletions

diff --git a/challenge-285/reinier-maliepaard/blog.txt b/challenge-285/reinier-maliepaard/blog.txt
new file mode 100644
index 0000000000..e2967ccde0
--- /dev/null
+++ b/challenge-285/reinier-maliepaard/blog.txt
@@ -0,0 +1 @@
+https://reiniermaliepaard.nl/perl/pwc/index.php?id=pwc285
diff --git a/challenge-285/reinier-maliepaard/perl/ch-1.pl b/challenge-285/reinier-maliepaard/perl/ch-1.pl
new file mode 100644
index 0000000000..018d18c4be
--- /dev/null
+++ b/challenge-285/reinier-maliepaard/perl/ch-1.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict;
+use warnings;
+
+sub no_connection {
+
+    # create strings directly from the array of pairs using map and join together
+    my $r1 = join('', map { $_->[0] } @_);
+    my $r2 = join('', map { $_->[1] } @_);
+
+    # remove each character in $r1 from $r2
+    $r2 =~ s/[$r1]//g;
+
+    return ($r2);
+}
+
+# Tests
+my @routes;
+
+# Example 1
+@routes = (["B", "C"], ["D", "B"], ["C", "A"]);
+print(no_connection(@routes), "\n"); # Output: A
+
+# Example 2
+@routes = (["A", "Z"]);
+print(no_connection(@routes), "\n"); # Output: Z