diff options
| -rw-r--r-- | challenge-150/james-smith/README.md | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-150/james-smith/README.md b/challenge-150/james-smith/README.md index dcbadeb488..552d615280 100644 --- a/challenge-150/james-smith/README.md +++ b/challenge-150/james-smith/README.md @@ -76,7 +76,7 @@ say for grep{my$t=$_;!grep{!($t%$_)}@p2}1..$N; We can re-write the inefficient double `grep` more elegantly with nested `for`*each* loops. The new code becomes: ```perl -my ( $N, @p2, @r ) = ( @ARGV ? $ARGV[0] : 500 , 4 ); +my ( $N, @p2 ) = ( @ARGV ? $ARGV[0] : 500 , 4 ); P: for ( my $c = 3; $c*$c <= $N; $c += 2 ) { $_ > $c ? last : $c*$c % $_ || next P for @p2; |