diff options
Diffstat (limited to 'challenge-154/mark-anderson')
| -rw-r--r-- | challenge-154/mark-anderson/raku/ch-1.raku | 13 | ||||
| -rw-r--r-- | challenge-154/mark-anderson/raku/ch-2.raku | 5 |
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 } ... *; |
