From 6487a92e723db88c4c72a2cc5a9e569a22f9a019 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 4 Dec 2023 19:06:51 +0000
Subject: Challenge 246 Solutions (Raku)

---
 challenge-246/mark-anderson/raku/ch-1.raku |  3 +++
 challenge-246/mark-anderson/raku/ch-2.raku | 27 +++++++++++++++++++++++++++
 2 files changed, 30 insertions(+)
 create mode 100644 challenge-246/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-246/mark-anderson/raku/ch-2.raku

diff --git a/challenge-246/mark-anderson/raku/ch-1.raku b/challenge-246/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..757c3fe00d
--- /dev/null
+++ b/challenge-246/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,3 @@
+#!/usr/bin/env raku
+
+.say for (1..49).pick(6).sort;
diff --git a/challenge-246/mark-anderson/raku/ch-2.raku b/challenge-246/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..d162ab93d3
--- /dev/null
+++ b/challenge-246/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+use Math::Matrix;
+use Test;
+
+# Disclaimer: This might be totally wrong but it seems right.
+
+ok  task2(1,1,2,3,5);
+nok task2(4,2,4,5,7);
+ok  task2(4,1,2,-3,8);
+
+sub task2(*@a)
+{
+    my @equations = @a.rotor(3 => -2);
+    
+    my ($p1,$q1) = p-and-q(@equations[0], @equations[1]);
+    my ($p2,$q2) = p-and-q(@equations[1], @equations[2]);
+
+    return False unless ($p1,$q1,$p2,$q2)>>.narrow.all ~~ Int;
+    return ($p1,$q1) eqv ($p2,$q2)
+}
+  
+sub p-and-q(@a, @b)
+{
+    my $A = Math::Matrix.new([[@a.head(2), @b.head(2)]]);
+    my $B = Math::Matrix.new([[@a.tail], [@b.tail]]);
+    |$A.inverted.dot-product($B)
+}
-- 
cgit