TWC249

3 files changed, 30 insertions, 0 deletions

diff --git a/challenge-249/deadmarshal/blog.txt b/challenge-249/deadmarshal/blog.txt
new file mode 100644
index 0000000000..a2c094bc2a
--- /dev/null
+++ b/challenge-249/deadmarshal/blog.txt
@@ -0,0 +1 @@
+https://deadmarshal.blogspot.com/2023/12/twc249.html
diff --git a/challenge-249/deadmarshal/perl/ch-1.pl b/challenge-249/deadmarshal/perl/ch-1.pl
new file mode 100644
index 0000000000..6c4f506f97
--- /dev/null
+++ b/challenge-249/deadmarshal/perl/ch-1.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util qw(all);
+use Data::Show;
+
+sub equal_pairs{
+  my %h;
+  $h{$_}++ foreach @{$_[0]};
+  (all{$_%2} values %h) ? () : map{my $k=$_;map{[$k,$k]}1..$h{$k}/2}keys %h;
+}
+
+print show equal_pairs([3,2,3,2,2,2]);
+print show equal_pairs([1,2,3,4]);
+
diff --git a/challenge-249/deadmarshal/perl/ch-2.pl b/challenge-249/deadmarshal/perl/ch-2.pl
new file mode 100644
index 0000000000..0d34ed55a7
--- /dev/null
+++ b/challenge-249/deadmarshal/perl/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Show;
+
+sub di_string_match{
+  my ($i,$j) = (0,length $_[0]);
+  (map{$_ eq 'I' ? $i++ : $j--}split '',$_[0]),$i;
+}
+
+print show di_string_match('IDID');
+print show di_string_match('III');
+print show di_string_match('DDI');
+