From 63bb86f20a65e318a416a0a478eaecf60faf8251 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 28 Feb 2022 19:35:26 +0000
Subject: Challenge 154 Solutions (Raku)

---
 challenge-154/mark-anderson/raku/ch-1.raku | 13 +++++++++++++
 challenge-154/mark-anderson/raku/ch-2.raku |  5 +++++
 2 files changed, 18 insertions(+)
 create mode 100644 challenge-154/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-154/mark-anderson/raku/ch-2.raku

diff --git a/challenge-154/mark-anderson/raku/ch-1.raku b/challenge-154/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..9a70bc672a
--- /dev/null
+++ b/challenge-154/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,13 @@
+#!/usr/bin/env raku
+
+use Test;
+
+my $list := <PELR PREL PERL PRLE PLER PLRE EPRL EPLR ERPL
+             ERLP ELPR ELRP RPEL RPLE REPL RELP RLPE RLEP>;
+
+is-deeply missing-permutations($list), set <LERP LPER LPRE LEPR LRPE LREP>;
+
+sub missing-permutations($list)
+{
+    $list.head.comb.permutations>>.join (-) $list;
+}
diff --git a/challenge-154/mark-anderson/raku/ch-2.raku b/challenge-154/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..20e87063f1
--- /dev/null
+++ b/challenge-154/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/usr/bin/env raku
+
+say .grep(*.is-prime).skip.head(10) with
+
+1, 1, 1, -> $a, $b, $ { $a + $b } ... *;
-- 
cgit