diff options
| author | drbaggy <js5@sanger.ac.uk> | 2021-11-16 07:41:23 +0000 |
|---|---|---|
| committer | drbaggy <js5@sanger.ac.uk> | 2021-11-16 07:41:23 +0000 |
| commit | ecfcca386aec6e8f1ebcf35dd175bf7b6bbea09f (patch) | |
| tree | de6d4908e8f07a8e7e4beb235788115ef649ad8c | |
| parent | 61b0eefa32e40d06de6dd0ab71c5079b9c9c5b6d (diff) | |
| download | perlweeklychallenge-club-ecfcca386aec6e8f1ebcf35dd175bf7b6bbea09f.tar.gz perlweeklychallenge-club-ecfcca386aec6e8f1ebcf35dd175bf7b6bbea09f.tar.bz2 perlweeklychallenge-club-ecfcca386aec6e8f1ebcf35dd175bf7b6bbea09f.zip | |
change while to for
| -rw-r--r-- | challenge-139/james-smith/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-139/james-smith/perl/ch-2.pl b/challenge-139/james-smith/perl/ch-2.pl index 5f3150a086..85c743084c 100644 --- a/challenge-139/james-smith/perl/ch-2.pl +++ b/challenge-139/james-smith/perl/ch-2.pl @@ -8,7 +8,7 @@ use feature qw(say); my( $N, $p, @primes, @long_primes ) = ( @ARGV ? $ARGV[0] : 5, 1, 2 ); -O: while( (@long_primes < $N) && ($p += 2) ) { +O: for( my $p=3; @long_primes<$N; $p+=2 ) { ($p % $_) || (next O) for @primes; ## next if not prime... push @long_primes, $p if $p - rec_len($p) == 1; push @primes, $p; |