diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-03-29 16:01:53 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-03-29 16:01:53 +0100 |
| commit | f824298c9f54f595d0c3a74dfc61b68bae56131f (patch) | |
| tree | 0ec302627dbd25919bf9d72b510075ab9b91e895 | |
| parent | da9ec8209275490fb27ee582166214066713eabd (diff) | |
| parent | 968d0d2ef69d276c089cf6ae9d84cc4cf8267cef (diff) | |
| download | perlweeklychallenge-club-f824298c9f54f595d0c3a74dfc61b68bae56131f.tar.gz perlweeklychallenge-club-f824298c9f54f595d0c3a74dfc61b68bae56131f.tar.bz2 perlweeklychallenge-club-f824298c9f54f595d0c3a74dfc61b68bae56131f.zip | |
Merge pull request #5855 from pokgopun/pwc158
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; |