From 4e808261c8e5ac01d3cfd87dd8421cde82878534 Mon Sep 17 00:00:00 2001
From: Niels van Dijke <65567640+PerlBoy1967@users.noreply.github.com>
Date: Tue, 31 May 2022 23:12:58 +0200
Subject: Update ch-1.pl

Silly 'length($p)'. Should be simply: $p < 10
---
 challenge-167/perlboy1967/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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;
   }
-- 
cgit