Merge pull request #9033 from deadmarshal/TWC242

TWC242

5 files changed, 48 insertions, 0 deletions

diff --git a/challenge-242/deadmarshal/blog.txt b/challenge-242/deadmarshal/blog.txt
new file mode 100644
index 0000000000..13ea585174
--- /dev/null
+++ b/challenge-242/deadmarshal/blog.txt
@@ -0,0 +1 @@
+https://deadmarshal.blogspot.com/2023/11/twc242.html
diff --git a/challenge-242/deadmarshal/perl/ch-1.pl b/challenge-242/deadmarshal/perl/ch-1.pl
new file mode 100644
index 0000000000..9f2c89cb38
--- /dev/null
+++ b/challenge-242/deadmarshal/perl/ch-1.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Show;
+use Set::Scalar;
+
+sub missing_members{
+  my $s1 = Set::Scalar->new(@{$_[0]});
+  my $s2 = Set::Scalar->new(@{$_[1]});
+  [($s1-$s2)->members],[($s2-$s1)->members]
+}
+
+print show missing_members([1,2,3],[2,4,6]);
+print show missing_members([1,2,3,3],[1,1,2,2]);
+
diff --git a/challenge-242/deadmarshal/perl/ch-2.pl b/challenge-242/deadmarshal/perl/ch-2.pl
new file mode 100644
index 0000000000..f656db588b
--- /dev/null
+++ b/challenge-242/deadmarshal/perl/ch-2.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use Data::Show;
+
+sub flip_matrix{
+  map{[map {$_^1} reverse @$_]}@{$_[0]};
+}
+
+print show flip_matrix([[1,1,0],[1,0,1],[0,0,0]]);
+print show flip_matrix([[1,1,0,0],[1,0,0,1],[0,1,1,1],[1,0,1,0]]);
+
diff --git a/challenge-242/deadmarshal/raku/ch-1.raku b/challenge-242/deadmarshal/raku/ch-1.raku
new file mode 100644
index 0000000000..bd92bd9cb5
--- /dev/null
+++ b/challenge-242/deadmarshal/raku/ch-1.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+
+sub missing-members(@a,@b)
+{
+  grep { .Bool }, ((@a (-) @b), (@b (-) @a))>>.keys>>.sort>>.Array
+}
+
+say missing-members([1,2,3],[2,4,6]);
+say missing-members([1,2,3,3],[1,1,2,2]);
+
diff --git a/challenge-242/deadmarshal/raku/ch-2.raku b/challenge-242/deadmarshal/raku/ch-2.raku
new file mode 100644
index 0000000000..aec74b449a
--- /dev/null
+++ b/challenge-242/deadmarshal/raku/ch-2.raku
@@ -0,0 +1,10 @@
+#!/usr/bin/env raku
+
+sub flip-matrix(@mat)
+{
+  @mat.map: {.reverse >>+^>> 1}
+}
+
+say flip-matrix([[1,1,0],[1,0,1],[0,0,0]]);
+say flip-matrix([[1,1,0,0],[1,0,0,1],[0,1,1,1],[1,0,1,0]]);
+