diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-05-31 22:21:09 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-05-31 22:21:09 +0100 |
| commit | 50183a9c3c0dca5bd89a748ba2530919c1d2ebab (patch) | |
| tree | dae489e03eb1804d78d481bcfde08a70815b00c0 | |
| parent | cda6562186832cc1749057a02e4ea433d853d8b2 (diff) | |
| parent | 4e808261c8e5ac01d3cfd87dd8421cde82878534 (diff) | |
| download | perlweeklychallenge-club-50183a9c3c0dca5bd89a748ba2530919c1d2ebab.tar.gz perlweeklychallenge-club-50183a9c3c0dca5bd89a748ba2530919c1d2ebab.tar.bz2 perlweeklychallenge-club-50183a9c3c0dca5bd89a748ba2530919c1d2ebab.zip | |
Merge pull request #6188 from PerlBoy1967/patch-2
Update ch-1.pl
| -rwxr-xr-x | challenge-167/perlboy1967/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-167/perlboy1967/perl/ch-1.pl b/challenge-167/perlboy1967/perl/ch-1.pl index 4db68779d5..93ae49b9e1 100755 --- a/challenge-167/perlboy1967/perl/ch-1.pl +++ b/challenge-167/perlboy1967/perl/ch-1.pl @@ -41,7 +41,7 @@ sub isCircularPrime ($) { state $circularPrimes = {}; # Below 10 are straight circular primes - if (length($p) == 1) { + if ($p < 10) { $circularPrimes->{$p}++; return 1; } |