diff options
| -rw-r--r-- | challenge-146/james-smith/perl/ch-1.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-146/james-smith/perl/ch-1.pl b/challenge-146/james-smith/perl/ch-1.pl index 692ac8d92d..0743994844 100644 --- a/challenge-146/james-smith/perl/ch-1.pl +++ b/challenge-146/james-smith/perl/ch-1.pl @@ -5,9 +5,9 @@ use strict; use warnings; use feature qw(say); -my @primes = (2); +my @primes = (3); -for( my $c=3; @primes<10001; $c+=2 ) { +for( my $c=5; @primes<10000; $c+=2 ) { ($_*$_>$c)?((push@primes,$c),last):$c%$_||last for @primes; } |