aboutsummaryrefslogtreecommitdiff
path: root/challenge-154/mark-anderson
diff options
context:
space:
mode:
Diffstat (limited to 'challenge-154/mark-anderson')
-rw-r--r--challenge-154/mark-anderson/raku/ch-1.raku13
-rw-r--r--challenge-154/mark-anderson/raku/ch-2.raku5
2 files changed, 18 insertions, 0 deletions
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 } ... *;