diff options
| -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; } |