diff options
| -rw-r--r-- | challenge-246/mark-anderson/raku/ch-1.raku | 3 | ||||
| -rw-r--r-- | challenge-246/mark-anderson/raku/ch-2.raku | 27 |
2 files changed, 30 insertions, 0 deletions
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) +} |