From 968d0d2ef69d276c089cf6ae9d84cc4cf8267cef Mon Sep 17 00:00:00 2001
From: Michael Manring <michael@manring>
Date: Tue, 29 Mar 2022 08:28:36 +0700
Subject: additional condition to avoid unnecessary processing

---
 challenge-158/pokgopun/perl/ch-1.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-158/pokgopun/perl/ch-1.pl b/challenge-158/pokgopun/perl/ch-1.pl
index 5bce96fc64..d9dae7a8d7 100644
--- a/challenge-158/pokgopun/perl/ch-1.pl
+++ b/challenge-158/pokgopun/perl/ch-1.pl
@@ -9,7 +9,7 @@ my $ap = $p;
 {
 	$p = next_prime($p);
 	last if $p > $n;
-	$ap .= ", $p" if is_prime(eval(join(" + ", $p =~ /(\d)/g)));
+	$ap .= ", $p" if $p < 10 || is_prime(eval(join(" + ", $p =~ /(.)/g)));
 	redo;
 }
 printf "%s\n", $ap;
-- 
cgit