diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-06-27 00:54:29 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2022-06-27 00:54:29 +0100 |
| commit | 8bd2faeba27c54f21c46bfe8edfd90eaf525f4dd (patch) | |
| tree | 1492e7a8a6fbaf45561b3e33bcb224199da48b38 /challenge-170 | |
| parent | fe20f23d1c7ba3a893e81dc9702ed2c602ff6f82 (diff) | |
| download | perlweeklychallenge-club-8bd2faeba27c54f21c46bfe8edfd90eaf525f4dd.tar.gz perlweeklychallenge-club-8bd2faeba27c54f21c46bfe8edfd90eaf525f4dd.tar.bz2 perlweeklychallenge-club-8bd2faeba27c54f21c46bfe8edfd90eaf525f4dd.zip | |
- Added solution by Mark Senn.
Diffstat (limited to 'challenge-170')
| -rw-r--r-- | challenge-170/mark-senn/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-170/mark-senn/raku/ch-1.raku | 10 |
2 files changed, 11 insertions, 0 deletions
diff --git a/challenge-170/mark-senn/blog.txt b/challenge-170/mark-senn/blog.txt new file mode 100644 index 0000000000..17aae10081 --- /dev/null +++ b/challenge-170/mark-senn/blog.txt @@ -0,0 +1 @@ +https://engineering.purdue.edu/~mark/twc-170-1.pdf diff --git a/challenge-170/mark-senn/raku/ch-1.raku b/challenge-170/mark-senn/raku/ch-1.raku new file mode 100644 index 0000000000..8e0d290cff --- /dev/null +++ b/challenge-170/mark-senn/raku/ch-1.raku @@ -0,0 +1,10 @@ +use v6.d; + +my $n = 10; + +# Let p be 1 followed by prime numbers for n total numbers. +my @p = (1..*).grep({$_ == 1 || .is-prime}).head($n); + +# Do the element multiplications. +@p[$_] = @p[$_-1] * @p[$_] for (2..9); +@p.say; |