aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--challenge-266/mark-anderson/raku/ch-1.raku19
-rw-r--r--challenge-266/mark-anderson/raku/ch-2.raku195
2 files changed, 214 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..1f01622531
--- /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 solution 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..dfe6bd7110
--- /dev/null
+++ b/challenge-266/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,195 @@
+#!/usr/bin/env raku
+use JSON::Fast;
+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 = (0...@m.end) Z (@m.end...0);
+
+ # handle the center diagonal and middle row
+ if @diags.end %% 2
+ {
+ return False unless all so @m[.[0]].splice(.[1],1,0).head,
+ so none @m[.[0]]
+ given @diags.splice(@m.elems div 2,1).head
+
+ }
+
+ for @diags
+ {
+ return False unless all so @m[.[0]].splice(.[0],1,0).head,
+ so @m[.[0]].splice(.[1],1,0).head,
+ so none @m[.[0]]
+ }
+
+ True
+}
generated by cgit (git 2.34.1) at 2026-07-07 12:20:31 +0000