From a19aaffe6583b544941583fd727943bb875e69cc Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 27 Jun 2022 03:57:28 +0000
Subject: Challenge 170 Solutions (Raku)

---
 challenge-170/mark-anderson/raku/ch-1.raku | 8 ++++++++
 challenge-170/mark-anderson/raku/ch-2.raku | 9 +++++++++
 2 files changed, 17 insertions(+)
 create mode 100644 challenge-170/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-170/mark-anderson/raku/ch-2.raku

diff --git a/challenge-170/mark-anderson/raku/ch-1.raku b/challenge-170/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..edf14a52c8
--- /dev/null
+++ b/challenge-170/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,8 @@
+#!/usr/bin/env raku
+
+say (^10).map(&primorial);
+
+sub primorial(\n)
+{
+    [*] (2,3,5,7...*).grep(&is-prime).head(n);
+}
diff --git a/challenge-170/mark-anderson/raku/ch-2.raku b/challenge-170/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..c9285c9158
--- /dev/null
+++ b/challenge-170/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,9 @@
+#!/usr/bin/env raku
+
+my $a := < 1 2 >,
+         < 3 4 >;
+
+my $b := < 5 6 >,
+         < 7 8 >;
+
+say map { .[0] X* .[1] }, ($a X $b);
-- 
cgit