diff options
| author | Michael Hamlin <1197072+myrrhlin@users.noreply.github.com> | 2019-07-14 09:53:26 -0400 |
|---|---|---|
| committer | Michael Hamlin <1197072+myrrhlin@users.noreply.github.com> | 2019-07-14 09:59:45 -0400 |
| commit | 151da0d8d541e6e2dad212f73ba4badd08c8117a (patch) | |
| tree | 81a885a485a3c301e2466e3135bc1a0f7e4bf0ba /challenge-015 | |
| parent | 7283c7d6cecac910676660676c025ca8045cfb8a (diff) | |
| download | perlweeklychallenge-club-151da0d8d541e6e2dad212f73ba4badd08c8117a.tar.gz perlweeklychallenge-club-151da0d8d541e6e2dad212f73ba4badd08c8117a.tar.bz2 perlweeklychallenge-club-151da0d8d541e6e2dad212f73ba4badd08c8117a.zip | |
save the balanced primes too
Diffstat (limited to 'challenge-015')
| -rw-r--r-- | challenge-015/pyrrhlin/perl5/t1-prime-types.pl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/challenge-015/pyrrhlin/perl5/t1-prime-types.pl b/challenge-015/pyrrhlin/perl5/t1-prime-types.pl index 8148d226ad..9e5417fcee 100644 --- a/challenge-015/pyrrhlin/perl5/t1-prime-types.pl +++ b/challenge-015/pyrrhlin/perl5/t1-prime-types.pl @@ -7,7 +7,7 @@ use integer; # hey look you can get more than 10 if ya want... my $n = shift @ARGV || 10; -my (@strong, @weak); +my (@strong, @weak, @balanced); for (my $i = 2; @strong < $n || @weak < $n; $i++) { my $prime = getprime($i); @@ -21,9 +21,12 @@ for (my $i = 2; @strong < $n || @weak < $n; $i++) { } elsif ($doubled < $neighbor_sum) { push @weak, $prime; } else { + push @balanced, $prime; say " (zomg prime #$i ($prime) is neither strong nor weak!)" } } -say "Strongs are: @strong[0 .. $n-1]"; -say "Weaks are: @weak[0 .. $n-1]"; +say "The first $n primes which are:"; +say "Strong: @strong[0 .. $n-1]"; +say "Weak: @weak[0 .. $n-1]"; +# say "saw balanced primes: @balanced"; |