diff options
| -rw-r--r-- | challenge-015/dave-jacoby/blog.txt | 1 | ||||
| -rw-r--r-- | challenge-015/dave-jacoby/perl5/ch-1.pl | 1 |
2 files changed, 1 insertions, 1 deletions
diff --git a/challenge-015/dave-jacoby/blog.txt b/challenge-015/dave-jacoby/blog.txt new file mode 100644 index 0000000000..b28204810f --- /dev/null +++ b/challenge-015/dave-jacoby/blog.txt @@ -0,0 +1 @@ +https://jacoby.github.io/2019/07/01/perl-weekly-challenge-015.html
\ No newline at end of file diff --git a/challenge-015/dave-jacoby/perl5/ch-1.pl b/challenge-015/dave-jacoby/perl5/ch-1.pl index 4c66702a02..f1ab521cd4 100644 --- a/challenge-015/dave-jacoby/perl5/ch-1.pl +++ b/challenge-015/dave-jacoby/perl5/ch-1.pl @@ -38,7 +38,6 @@ for my $n ( 1 .. @primes ) { push @strong, $o if $swb == 1; push @weak, $o if $swb == -1; last if @weak > 10 && @strong > 10; - say $swb; } say 'strong: ' . join ", ", @strong[0..9]; say 'weak: ' . join ", ", @weak[0..9]; |