diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2019-07-05 11:32:12 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2019-07-05 11:32:12 +0100 |
| commit | ffeed4a2aa658038b6947671c989142cbdf0fb07 (patch) | |
| tree | 933880a9fe1c18f51d8f553174aa6cd5c107a856 | |
| parent | 650fa4f96b6b5761698283006408c89969209975 (diff) | |
| parent | d885fae13739fccfab21ca92add4cd2641a54e28 (diff) | |
| download | perlweeklychallenge-club-ffeed4a2aa658038b6947671c989142cbdf0fb07.tar.gz perlweeklychallenge-club-ffeed4a2aa658038b6947671c989142cbdf0fb07.tar.bz2 perlweeklychallenge-club-ffeed4a2aa658038b6947671c989142cbdf0fb07.zip | |
Merge pull request #339 from Scimon/master
Strong and week primes
| -rw-r--r-- | challenge-015/simon-proctor/perl6/ch-1.p6 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-015/simon-proctor/perl6/ch-1.p6 b/challenge-015/simon-proctor/perl6/ch-1.p6 new file mode 100644 index 0000000000..277e85522e --- /dev/null +++ b/challenge-015/simon-proctor/perl6/ch-1.p6 @@ -0,0 +1,15 @@ +#!/usr/bin/env perl6 +use v6; + +#| Print the first x strong and weak primes +sub MAIN( + UInt $x #= Number of primes to print +) { + my @primes = (1..*).grep( *.is-prime ); + + my @strong = (1..*).grep( { @primes[$_] > (@primes[$_-1] + @primes[$_+1]) / 2 } ).map( { @primes[$_] } ); + my @weak = (1..*).grep( { @primes[$_] < ( @primes[$_-1] + @primes[$_+1] ) / 2 } ).map( { @primes[$_] } ); + + say "Strong {@strong[^$x].join(", ")}"; + say "Weak {@weak[^$x].join(", ")}"; +}
\ No newline at end of file |