diff options
| author | drbaggy <js5@sanger.ac.uk> | 2022-01-04 10:22:26 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2022-01-04 10:22:26 +0000 |
| commit | b607a59b4bbe54ef88dd989a2f30a8d33e15368d (patch) | |
| tree | f0acc4496c60fdda1bd99f65721148c92481c989 | |
| parent | 49715bb9e617d9cf5c1b8895087e46a3331d4927 (diff) | |
| download | perlweeklychallenge-club-b607a59b4bbe54ef88dd989a2f30a8d33e15368d.tar.gz perlweeklychallenge-club-b607a59b4bbe54ef88dd989a2f30a8d33e15368d.tar.bz2 perlweeklychallenge-club-b607a59b4bbe54ef88dd989a2f30a8d33e15368d.zip | |
fix 2->3 3->5
| -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; } |