- Added solutions by Mark Anderson.

2 files changed, 40 insertions, 0 deletions

diff --git a/challenge-020/mark-anderson/perl5/ch-1.pl b/challenge-020/mark-anderson/perl5/ch-1.pl
new file mode 100644
index 0000000000..406398139e
--- /dev/null
+++ b/challenge-020/mark-anderson/perl5/ch-1.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+
+my $string = shift || 'ABBCDEEF';
+my @array;
+
+while($string =~ /((.)\2*)/g) {
+    push @array, $1;
+}
+
+say "@array";
+
+
diff --git a/challenge-020/mark-anderson/perl5/ch-2.pl b/challenge-020/mark-anderson/perl5/ch-2.pl
new file mode 100644
index 0000000000..b3f29fd3bf
--- /dev/null
+++ b/challenge-020/mark-anderson/perl5/ch-2.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/env perl
+
+use Modern::Perl '2018';
+use List::Util 'sum';
+use Math::Factor::XS 'factors';
+
+my %sum;
+
+my $num_1 = 0;
+
+while(1) {
+    $num_1++;
+
+    my $num_2 = sum (1, factors($num_1));
+
+    next if $num_1 == $num_2;
+
+    $sum{$num_1} = $num_2;
+
+    $sum{$num_2} // next;
+
+    if($num_1 == $sum{$num_2}) {
+        say "$num_2, $num_1";
+        last;
+    }
+}