diff options
| -rw-r--r-- | challenge-158/pokgopun/perl/ch-1.pl | 2 |
1 files changed, 1 insertions, 1 deletions
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; |