diff options
| author | Michael Manring <michael@manring> | 2022-03-29 08:28:36 +0700 |
|---|---|---|
| committer | Michael Manring <michael@manring> | 2022-03-29 08:28:36 +0700 |
| commit | 968d0d2ef69d276c089cf6ae9d84cc4cf8267cef (patch) | |
| tree | c77e5a09dd4a487978bed3fbd38b50747b8d6414 | |
| parent | 8bdb4d6e510e959591754c2c36d9b1faccfd1d5b (diff) | |
| download | perlweeklychallenge-club-968d0d2ef69d276c089cf6ae9d84cc4cf8267cef.tar.gz perlweeklychallenge-club-968d0d2ef69d276c089cf6ae9d84cc4cf8267cef.tar.bz2 perlweeklychallenge-club-968d0d2ef69d276c089cf6ae9d84cc4cf8267cef.zip | |
additional condition to avoid unnecessary processing
| -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; |