From 183bcbc5bbfded87efa3c8180a5c204bc404e370 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 27 Dec 2021 08:44:55 +0000
Subject: ch-1.raku

---
 challenge-145/mark-anderson/raku/ch-1.raku | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 challenge-145/mark-anderson/raku/ch-1.raku

diff --git a/challenge-145/mark-anderson/raku/ch-1.raku b/challenge-145/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..005dfd13a4
--- /dev/null
+++ b/challenge-145/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+
+use Test;
+
+is dot-product((1, 2, 3), (4, 5, 6)), 32;
+is dot-product((1, 2, 3, 4), (4, 5, 6, 7), (7, 8, 9, 1), (2, 3, 4, 5)), 1084;
+
+sub dot-product(+@a)
+{
+    sum [<<*>>] @a; 
+}
-- 
cgit 


From ab67f618217d8ec9f74705c39bb256cc6067ff1b Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 27 Dec 2021 09:03:33 +0000
Subject: ch-1.raku

---
 challenge-145/mark-anderson/raku/ch-1.raku | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/challenge-145/mark-anderson/raku/ch-1.raku b/challenge-145/mark-anderson/raku/ch-1.raku
index 005dfd13a4..6f0c05cd55 100644
--- a/challenge-145/mark-anderson/raku/ch-1.raku
+++ b/challenge-145/mark-anderson/raku/ch-1.raku
@@ -3,9 +3,10 @@
 use Test;
 
 is dot-product((1, 2, 3), (4, 5, 6)), 32;
+is dot-product((1, 2, 3, 4), (4, 5, 6, 7), (7, 8, 9, 1)), 298;
 is dot-product((1, 2, 3, 4), (4, 5, 6, 7), (7, 8, 9, 1), (2, 3, 4, 5)), 1084;
 
 sub dot-product(+@a)
 {
-    sum [<<*>>] @a; 
+    sum [>>*<<] @a; 
 }
-- 
cgit