diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-06-12 17:28:16 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-06-12 17:28:16 +0100 |
| commit | ad861a221c7eafcfd6edee82a927b2bad51b6332 (patch) | |
| tree | bd3941a8a07b0913581c02a9091d314f8edfa031 | |
| parent | 52ab32cb1cd2a499b197caebf3bfa6952ce8403d (diff) | |
| parent | 6526326a4f3460fedf4e43ade6bcb10d26c9fe41 (diff) | |
| download | perlweeklychallenge-club-ad861a221c7eafcfd6edee82a927b2bad51b6332.tar.gz perlweeklychallenge-club-ad861a221c7eafcfd6edee82a927b2bad51b6332.tar.bz2 perlweeklychallenge-club-ad861a221c7eafcfd6edee82a927b2bad51b6332.zip | |
Merge pull request #6248 from habere-et-dispertire/master
Raku solution to Challenge 168: Perrin Prime
| -rw-r--r-- | challenge-168/habere-et-dispetire/README | 1 | ||||
| -rw-r--r-- | challenge-168/habere-et-dispetire/raku/ch-1.raku | 11 |
2 files changed, 12 insertions, 0 deletions
diff --git a/challenge-168/habere-et-dispetire/README b/challenge-168/habere-et-dispetire/README new file mode 100644 index 0000000000..3513d40fb8 --- /dev/null +++ b/challenge-168/habere-et-dispetire/README @@ -0,0 +1 @@ +Solution(s) by habere-et-dispertire diff --git a/challenge-168/habere-et-dispetire/raku/ch-1.raku b/challenge-168/habere-et-dispetire/raku/ch-1.raku new file mode 100644 index 0000000000..e2bdcecfaa --- /dev/null +++ b/challenge-168/habere-et-dispetire/raku/ch-1.raku @@ -0,0 +1,11 @@ +#! /usr/bin/env raku + +# Perrin Prime +# https://wikiless.org/wiki/Perrin_number +# https://oeis.org/A074788 + +put (3, 0, 2, -> $n3, $n2, $ { $n3 + $n2 } … ∞) + .grep(*.is-prime) + .unique + .head(13) + .sort; |