8 files changed, 368 insertions, 1 deletions
diff --git a/challenge-266/packy-anderson/README.md b/challenge-266/packy-anderson/README.md
index 784366b854..3f4d321553 100644
--- a/challenge-266/packy-anderson/README.md
+++ b/challenge-266/packy-anderson/README.md
@@ -16,4 +16,4 @@
 
 ## Blog Post
 
-[Completing a Third of an Appearance](https://packy.dardan.com/b/KV)
+[A Matrix of Uncommon X Words](https://packy.dardan.com/b/KX)
diff --git a/challenge-266/packy-anderson/blog.txt b/challenge-266/packy-anderson/blog.txt
new file mode 100644
index 0000000000..a43da805a2
--- /dev/null
+++ b/challenge-266/packy-anderson/blog.txt
@@ -0,0 +1 @@
+https://packy.dardan.com/2024/04/23/perl-weekly-challenge-a-matrix-of-uncommon-x-words
diff --git a/challenge-266/packy-anderson/perl/ch-1.pl b/challenge-266/packy-anderson/perl/ch-1.pl
new file mode 100644
index 0000000000..78ebc28a2d
--- /dev/null
+++ b/challenge-266/packy-anderson/perl/ch-1.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/env perl
+use v5.38;
+
+sub occursOnce($line) {
+  # create a hash counting the words
+  my %all;
+  $all{$_}++ for split(/\s+/, $line);
+  # create a list of words that occur once in the hash
+  return grep { $all{$_} == 1 } keys %all;
+}
+
+sub uncommonWords($line1, $line2) {
+  return occursOnce(
+    join(' ', occursOnce($line1), occursOnce($line2))
+  );
+}
+
+sub solution($line1, $line2) {
+  say "Input: \$line1 = '$line1'";
+  say "       \$line2 = '$line2'";
+  my @results = uncommonWords($line1, $line2);
+  say "Output: ('" . join("', '",@results) . "')";
+}
+
+say "Example 1:";
+solution('Mango is sweet', 'Mango is sour');
+
+say "\nExample 2:";
+solution('Mango Mango', 'Orange');
+
+say "\nExample 3:";
+solution('Mango is Mango', 'Orange is Orange');
diff --git a/challenge-266/packy-anderson/perl/ch-2.pl b/challenge-266/packy-anderson/perl/ch-2.pl
new file mode 100644
index 0000000000..3cd14e8b26
--- /dev/null
+++ b/challenge-266/packy-anderson/perl/ch-2.pl
@@ -0,0 +1,93 @@
+#!/usr/bin/env perl
+use v5.38;
+
+sub isDiagonal($x, $y, $N) {
+  return (
+    $N == 1 || $N == 2 || $x == $y || $x + $y == $N - 1
+  );
+}
+
+sub isXMatrix(@matrix) {
+  my $N = scalar @matrix;
+  foreach my $y ( 0 .. $#matrix ) {
+    my @row = @{$matrix[$y]};
+    foreach my $x ( 0 .. $#row ) {
+      my $value = $row[$x];
+      # fail if diagonal values are zero or
+      # non-diagonal values are non-zero
+      return 0
+        unless isDiagonal($x, $y, $N) == ($value != 0);
+    }
+  }
+  return 1;
+}
+
+sub formatMatrix($matrix, $indent=17) {
+  my @output;
+  foreach my $row (@$matrix) {
+    my $output_row = q{ } x $indent . "  [";
+    $output_row .= join(', ', map { sprintf "%1d", $_ } @$row) . ']';
+    push @output, $output_row;
+  }
+  return "[\n"
+       . join(",\n", @output)
+       . "\n"
+       . q{ } x $indent . "]";
+}
+
+sub solution(@matrix) {
+  say 'Input: $matrix = ' . formatMatrix(\@matrix);
+  say 'Output: ' . (isXMatrix(@matrix) ? 'True' : 'False');
+}
+
+say "Example 1:";
+solution(
+  [1, 0, 0, 2],
+  [0, 3, 4, 0],
+  [0, 5, 6, 0],
+  [7, 0, 0, 1],
+);
+
+say "\nExample 2:";
+solution(
+  [1, 2, 3],
+  [4, 5, 6],
+  [7, 8, 9],
+);
+
+say "\nExample 3:";
+solution(
+  [1, 0, 2],
+  [0, 3, 0],
+  [4, 0, 5],
+);
+
+say "\nExample 4:";
+solution(
+  [1, 0, 0, 0, 1],
+  [0, 1, 0, 1, 0],
+  [0, 0, 1, 0, 0],
+  [0, 1, 0, 1, 0],
+  [1, 0, 0, 0, 1],
+);
+
+say "\nExample 5:";
+solution(
+  [1, 0, 1, 0, 1],
+  [0, 1, 0, 1, 0],
+  [0, 0, 1, 0, 0],
+  [0, 1, 0, 1, 0],
+  [1, 0, 0, 0, 1],
+);
+
+say "\nExample 6:";
+solution(
+  [1, 1],
+  [1, 1],
+);
+
+say "\nExample 7:";
+solution(
+  [1, 0],
+  [1, 1],
+);
diff --git a/challenge-266/packy-anderson/python/ch-1.py b/challenge-266/packy-anderson/python/ch-1.py
new file mode 100644
index 0000000000..ea2c608816
--- /dev/null
+++ b/challenge-266/packy-anderson/python/ch-1.py
@@ -0,0 +1,32 @@
+#!/usr/bin/env python
+
+from collections import Counter
+
+def occursOnce(line):
+  # create a Counter of all words
+  all = Counter(line.split())
+  # create a list of words that occur once in the Counter
+  return [ word for word in list(all) if all[word] == 1 ]
+
+def uncommonWords(line1, line2):
+  return occursOnce(
+     ' '.join(occursOnce(line1) + occursOnce(line2))
+  )
+
+def quoted_comma_join(arr):
+    return "'" + "', '".join(arr) + "'"
+
+def solution(line1, line2):
+    print(f"Input: $line1 = '{line1}'")
+    print(f"       $line2 = '{line2}'")
+    uncommon = uncommonWords(line1, line2)
+    print(f'Output: ({quoted_comma_join(uncommon)})')
+
+print('Example 1:')
+solution('Mango is sweet', 'Mango is sour')
+
+print('\nExample 2:')
+solution('Mango Mango', 'Orange')
+
+print('\nExample 3:')
+solution('Mango is Mango', 'Orange is Orange')
diff --git a/challenge-266/packy-anderson/python/ch-2.py b/challenge-266/packy-anderson/python/ch-2.py
new file mode 100644
index 0000000000..dc2c0393bc
--- /dev/null
+++ b/challenge-266/packy-anderson/python/ch-2.py
@@ -0,0 +1,85 @@
+#!/usr/bin/env python
+
+def isDiagonal(x, y, N):
+  return (
+    N == 1 or N == 2 or x == y or x + y == N - 1
+  )
+
+def isXMatrix(matrix):
+  N = len(matrix)
+  for y, row in enumerate(matrix):
+    for x, value in enumerate(row):
+      # fail if diagonal values are zero or
+      # non-diagonal values are non-zero
+      if isDiagonal(x, y, N) != (value != 0):
+        return False
+  return True
+
+def formatMatrix(matrix, indent=17):
+    output = []
+    for row in matrix:
+        output_row = ' ' * indent + '  ['
+        output_row += ', '.join(map(lambda i: str(i), row))
+        output_row += ']'
+        output.append(output_row)
+
+    return(
+        "[\n" + ",\n".join(output) + "\n" +
+        ' ' * indent + ']'
+    )
+
+def solution(matrix):
+    print(f'Input: $matrix = {formatMatrix(matrix)}')
+    print(f'Output: {isXMatrix(matrix)}')
+
+print('Example 1:')
+solution([
+  [1, 0, 0, 2],
+  [0, 3, 4, 0],
+  [0, 5, 6, 0],
+  [7, 0, 0, 1],
+])
+
+print('\nExample 2:')
+solution([
+  [1, 2, 3],
+  [4, 5, 6],
+  [7, 8, 9],
+])
+
+print('\nExample 3:')
+solution([
+  [1, 0, 2],
+  [0, 3, 0],
+  [4, 0, 5],
+])
+
+print('\nExample 4:')
+solution([
+  [1, 0, 0, 0, 1],
+  [0, 1, 0, 1, 0],
+  [0, 0, 1, 0, 0],
+  [0, 1, 0, 1, 0],
+  [1, 0, 0, 0, 1],
+])
+
+print('\nExample 5:')
+solution([
+  [1, 0, 1, 0, 1],
+  [0, 1, 0, 1, 0],
+  [0, 0, 1, 0, 0],
+  [0, 1, 0, 1, 0],
+  [1, 0, 0, 0, 1],
+])
+
+print('\nExample 6:')
+solution([
+  [1, 1],
+  [1, 1]
+])
+
+print('\nExample 7:')
+solution([
+  [1, 0],
+  [1, 1]
+])
diff --git a/challenge-266/packy-anderson/raku/ch-1.raku b/challenge-266/packy-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..453a91d2e6
--- /dev/null
+++ b/challenge-266/packy-anderson/raku/ch-1.raku
@@ -0,0 +1,32 @@
+#!/usr/bin/env raku
+use v6;
+
+sub occursOnce($line) {
+  # create a Bag of all words
+  my $all = $line.comb(/\w+/).Bag;
+  # create a list of words that occur once in the Bag
+  return $all.keys.grep({ $all{$_} == 1 });
+}
+
+sub uncommonWords($line1, $line2) {
+  # create a Bag of words that occur once in each line
+  my $all = occursOnce($line1).Bag ⊎ occursOnce($line2).Bag;
+  # return a list of words that occur once in that Bag
+  return $all.keys.grep({ $all{$_} == 1 });
+}
+
+sub solution($line1, $line2) {
+  say "Input: \$line1 = '$line1'";
+  say "       \$line2 = '$line2'";
+  my @results = uncommonWords($line1, $line2);
+  say "Output: ('" ~ @results.join("', '") ~ "')";
+}
+
+say "Example 1:";
+solution('Mango is sweet', 'Mango is sour');
+
+say "\nExample 2:";
+solution('Mango Mango', 'Orange');
+
+say "\nExample 3:";
+solution('Mango is Mango', 'Orange is Orange');
diff --git a/challenge-266/packy-anderson/raku/ch-2.raku b/challenge-266/packy-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..5fa2b6b9fd
--- /dev/null
+++ b/challenge-266/packy-anderson/raku/ch-2.raku
@@ -0,0 +1,92 @@
+#!/usr/bin/env raku
+use v6;
+
+sub isDiagonal($x, $y, $N) {
+  return (
+    $N == 1 || $N == 2 || $x == $y || $x + $y == $N - 1
+  );
+}
+
+sub isXMatrix(@matrix) {
+  my $N = @matrix.elems;
+  for @matrix.kv -> $y, @row {
+    for @row.kv -> $x, $value {
+      # fail if diagonal values are zero or
+      # non-diagonal values are non-zero
+      return False
+        unless isDiagonal($x, $y, $N) == ($value != 0);
+    }
+  }
+  return True;
+}
+
+sub formatMatrix(@matrix, $indent=17) {
+  my @output;
+  for @matrix -> @row {
+    my $output_row = q{ } x $indent ~ "  [";
+    $output_row ~= @row.map({ sprintf "%1d", $_ })
+                       .join(', ') ~ "]";
+    @output.push($output_row);
+  }
+  return "[\n"
+       ~ @output.join(",\n")
+       ~ "\n"
+       ~ q{ } x $indent ~ "]";
+}
+
+sub solution(@matrix) {
+  say 'Input: $matrix = ' ~ formatMatrix(@matrix);
+  say 'Output: ' ~ isXMatrix(@matrix);
+}
+
+say "Example 1:";
+solution([
+  [1, 0, 0, 2],
+  [0, 3, 4, 0],
+  [0, 5, 6, 0],
+  [7, 0, 0, 1],
+]);
+
+say "\nExample 2:";
+solution([
+  [1, 2, 3],
+  [4, 5, 6],
+  [7, 8, 9],
+]);
+
+say "\nExample 3:";
+solution([
+  [1, 0, 2],
+  [0, 3, 0],
+  [4, 0, 5],
+]);
+
+say "\nExample 4:";
+solution([
+  [1, 0, 0, 0, 1],
+  [0, 1, 0, 1, 0],
+  [0, 0, 1, 0, 0],
+  [0, 1, 0, 1, 0],
+  [1, 0, 0, 0, 1],
+]);
+
+say "\nExample 5:";
+solution([
+  [1, 0, 1, 0, 1],
+  [0, 1, 0, 1, 0],
+  [0, 0, 1, 0, 0],
+  [0, 1, 0, 1, 0],
+  [1, 0, 0, 0, 1],
+]);
+
+say "\nExample 6:";
+solution([
+  [1, 1],
+  [1, 1],
+]);
+
+say "\nExample 7:";
+solution([
+  [1, 0],
+  [1, 1],
+]);