Merge pull request #9563 from deadmarshal/TWC256

TWC256

3 files changed, 34 insertions, 0 deletions

diff --git a/challenge-256/deadmarshal/blog.txt b/challenge-256/deadmarshal/blog.txt
new file mode 100644
index 0000000000..6f27834099
--- /dev/null
+++ b/challenge-256/deadmarshal/blog.txt
@@ -0,0 +1 @@
+https://deadmarshal.blogspot.com/2024/02/twc256.html
diff --git a/challenge-256/deadmarshal/perl/ch-1.pl b/challenge-256/deadmarshal/perl/ch-1.pl
new file mode 100644
index 0000000000..591f9475dc
--- /dev/null
+++ b/challenge-256/deadmarshal/perl/ch-1.pl
@@ -0,0 +1,16 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+sub maximum_pairs{
+  my ($a) = @_;
+  my $c = 0;
+  map{my $i = $_;
+      map{$c++ if $a->[$i] eq reverse $a->[$_]}$i+1..$#$a}0..$#$a;
+  $c
+}
+
+printf "%d\n", maximum_pairs(['ab','de','ed','bc']);
+printf "%d\n", maximum_pairs(['aa','ba','cd','ed']);
+printf "%d\n", maximum_pairs(['uv','qp','st','vu','mn','pq']);
+
diff --git a/challenge-256/deadmarshal/perl/ch-2.pl b/challenge-256/deadmarshal/perl/ch-2.pl
new file mode 100644
index 0000000000..2d342824b7
--- /dev/null
+++ b/challenge-256/deadmarshal/perl/ch-2.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+
+sub merge_strings{
+  my ($res,$m,$n) = ('',length $_[0],length $_[1]);
+  for(my $i = 0; $i < $m || $i < $n; ++$i){
+    $res .= substr $_[0],$i,1 if $i < $m;
+    $res .= substr $_[1],$i,1 if $i < $n;
+  }
+  $res
+}
+
+printf "%s\n",merge_strings('abcd','1234');
+printf "%s\n",merge_strings('abc','12345');
+printf "%s\n",merge_strings('abcde','123');
+