Merge pull request #9973 from andemark/challenge-266

Challenge 266

2 files changed, 206 insertions, 0 deletions

diff --git a/challenge-266/mark-anderson/raku/ch-1.raku b/challenge-266/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..9a2bbd201f
--- /dev/null
+++ b/challenge-266/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply uncommon-words('Mango is sweet', 'Mango is sour'),    ('sweet', 'sour'), 'example 1';
+is-deeply uncommon-words('Mango Mango',    'Orange'),           ('Orange',),       'example 2';
+is-deeply uncommon-words('Mango is Mango', 'Orange is Orange'), (),                'example 3';
+
+sub uncommon-words($s1, $s2)
+{
+    # A literal translation using the one and none junctions
+    sub uw($s1, $s2)
+    {
+        my @s1 = $s1.words;
+        my @ones = @s1.unique.grep(one @s1);
+        @ones.grep(none $s2.words) 
+    }
+    
+    flat uw($s1, $s2), uw($s2, $s1)
+}
diff --git a/challenge-266/mark-anderson/raku/ch-2.raku b/challenge-266/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..0cca03e98e
--- /dev/null
+++ b/challenge-266/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,187 @@
+#!/usr/bin/env raku
+use Test;
+
+ok  X-matrix([ 
+                 [1,0,0,2],
+                 [0,3,4,0],
+                 [0,5,6,0],
+                 [7,0,0,1]
+             ]),
+    'example 1';
+
+nok X-matrix([
+                 [1,2,3],
+                 [4,5,6],
+                 [7,8,9]
+             ]),
+    'example 2';
+
+ok  X-matrix([
+                 [1,0,2],
+                 [0,3,0],
+                 [4,0,5]
+             ]),
+    'example 3';
+
+ok  X-matrix([
+                 [9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9],
+                 [0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0],
+                 [0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0],
+                 [0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0],
+                 [0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0],
+                 [0,0,0,0,0,5,0,0,0,0,0,0,0,0,7,0,0,0,0,0],
+                 [0,0,0,0,0,0,5,0,0,0,0,0,0,4,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,7,0,0,0,0,8,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,3,0,0,2,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,5,5,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,5,0,0,6,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,5,0,0,0,0,6,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,2,0,0,0,0,0,0,6,0,0,0,0,0,0],
+                 [0,0,0,0,0,2,0,0,0,0,0,0,0,0,9,0,0,0,0,0],
+                 [0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0],
+                 [0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0],
+                 [0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0],
+                 [0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0],
+                 [3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7]
+             ]),
+    '20 X 20';
+
+nok X-matrix([
+                 [9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9],
+                 [0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0],
+                 [0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0],
+                 [0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0],
+                 [0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0],
+                 [0,0,0,0,0,5,0,0,0,0,0,0,0,0,7,0,0,0,0,0],
+                 [0,0,0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,7,0,0,0,0,8,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,3,0,0,2,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,5,5,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,5,0,0,6,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,5,0,0,0,0,6,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,2,0,0,0,0,0,0,6,0,0,0,0,0,0],
+                 [0,0,0,0,0,2,0,0,0,0,0,0,0,0,9,0,0,0,0,0],
+                 [0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,6,0,0,0,0],
+                 [0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0],
+                 [0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0],
+                 [0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0],
+                 [3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7]
+             ]),
+    '20 X 20 diagonal zero';
+
+nok X-matrix([
+                 [9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,9],
+                 [0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0],
+                 [0,0,9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0],
+                 [0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,0],
+                 [0,0,0,0,5,0,0,0,0,0,0,0,0,0,0,5,0,0,0,0],
+                 [0,0,0,0,0,5,0,0,0,0,0,0,0,0,7,0,0,0,0,0],
+                 [0,0,0,0,0,0,5,0,0,0,0,0,0,4,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,7,0,0,0,0,8,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,3,0,0,2,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,5,5,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,1,2,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,5,0,0,6,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,5,0,0,0,0,6,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,2,0,0,0,0,0,0,6,0,0,0,0,0,0],
+                 [0,0,0,0,0,2,0,0,0,0,0,0,0,0,9,0,0,0,0,0],
+                 [0,0,0,0,8,0,0,1,0,0,0,0,0,0,0,6,0,0,0,0],
+                 [0,0,0,6,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0,0],
+                 [0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0,0],
+                 [0,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,5,0],
+                 [3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7]
+             ]),
+    '20 X 20 non-diagonal non-zero';
+
+ok  X-matrix([
+                 [9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7],
+                 [0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0],
+                 [0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0],
+                 [0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0],
+                 [0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0],
+                 [0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0],
+                 [0,0,0,0,0,0,6,0,0,0,0,0,0,0,9,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,9,0,0,0,0,0,7,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,7,0,0,0,9,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,8,0,1,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,3,0,3,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,7,0,0,0,8,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,4,0,0,0,0,0,2,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,3,0,0,0,0,0,0,0,8,0,0,0,0,0,0],
+                 [0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0],
+                 [0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0],
+                 [0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0],
+                 [0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0],
+                 [0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0],
+                 [8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2]
+             ]),
+    '21 X 21';
+
+nok X-matrix([
+                 [9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7],
+                 [0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0],
+                 [0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0],
+                 [0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0],
+                 [0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0],
+                 [0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0],
+                 [0,0,0,0,0,0,6,0,0,0,0,0,0,0,9,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,9,0,0,0,0,0,7,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,7,0,0,0,9,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,8,0,1,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,3,0,3,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,7,0,0,0,8,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,4,0,0,0,0,0,2,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,3,0,0,0,0,0,0,0,8,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0],
+                 [0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0],
+                 [0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0],
+                 [0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0],
+                 [0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0],
+                 [8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2]
+             ]),
+    '21 X 21 diagonal zero';
+
+nok X-matrix([
+                 [9,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7],
+                 [0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,4,0],
+                 [0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0],
+                 [0,0,0,5,0,0,0,0,0,0,0,0,0,0,0,0,0,8,0,0,0],
+                 [0,0,0,0,8,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0],
+                 [0,0,0,0,0,4,0,0,0,0,0,0,0,0,0,9,0,0,0,0,0],
+                 [0,0,0,0,0,0,6,0,0,0,0,0,0,0,9,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,9,0,0,0,0,0,7,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,7,0,0,0,9,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,8,0,1,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,0,0,6,0,0,0,0,0,0,0,0,0,5],
+                 [0,0,0,0,0,0,0,0,0,3,0,3,0,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,0,7,0,0,0,8,0,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,0,4,0,0,0,0,0,2,0,0,0,0,0,0,0],
+                 [0,0,0,0,0,0,3,0,0,0,0,0,0,0,8,0,0,0,0,0,0],
+                 [0,0,0,0,0,7,0,0,0,0,0,0,0,0,0,4,0,0,0,0,0],
+                 [0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,9,0,0,0,0],
+                 [0,0,0,7,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0],
+                 [0,0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,6,0,0],
+                 [0,4,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0],
+                 [8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2]
+             ]),
+    '21 X 21 non-diagonal non-zero';
+
+sub X-matrix(+@m)
+{
+    my $diags := |((^@m) Z (^@m)), |((0...@m.end) Z (@m.end...0));
+
+    my @replace = 0 xx $diags;
+
+    @replace[@replace.elems div 4] = 1 if @m.end %% 2;
+
+    my @diags = ($diags Z @replace).map(-> (($row, $col), $replace)
+    {
+        @m[$row].splice($col,1,$replace).head
+    });
+
+    so all(all |@diags, none @m[*;*])
+}