diff options
| author | 冯昶 <seaker@qq.com> | 2022-04-22 16:06:14 +0800 |
|---|---|---|
| committer | 冯昶 <seaker@qq.com> | 2022-04-22 16:06:14 +0800 |
| commit | 92425ba439b488f7a1ce02e9a880eb1fbc95275e (patch) | |
| tree | 56fbbee4da1f540f44cfa48db6423dce8987eb1d /challenge-156 | |
| parent | 6a00d6b710aab73f6556b0fcb0a0891c708e7c6d (diff) | |
| parent | ea2927c18c1ca3a667125b65134c2e686ee0036d (diff) | |
| download | perlweeklychallenge-club-92425ba439b488f7a1ce02e9a880eb1fbc95275e.tar.gz perlweeklychallenge-club-92425ba439b488f7a1ce02e9a880eb1fbc95275e.tar.bz2 perlweeklychallenge-club-92425ba439b488f7a1ce02e9a880eb1fbc95275e.zip | |
Merge remote-tracking branch 'upstream/master'
Diffstat (limited to 'challenge-156')
| -rw-r--r-- | challenge-156/pokgopun/perl/ch-1.pl | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/challenge-156/pokgopun/perl/ch-1.pl b/challenge-156/pokgopun/perl/ch-1.pl index d4b4ce1e2d..7aec2aadb0 100644 --- a/challenge-156/pokgopun/perl/ch-1.pl +++ b/challenge-156/pokgopun/perl/ch-1.pl @@ -5,7 +5,6 @@ use Math::Prime::Util qw/is_prime/; my $n = shift; $n = 10 unless $n && $n =~ /^\d+$/; my $i; -my %is_prime; my @pn; { my $j = ++$i; @@ -15,16 +14,7 @@ my @pn; $j = int($j / 2); redo if $j; } - if (defined $is_prime{$sum}) - { - push @pn, $i if $is_prime{$sum}; - } else { - $is_prime{$sum} = 0; - if (is_prime($sum)){ - $is_prime{$sum} = 1; - push @pn, $i - } - } + push @pn, $i if is_prime($sum); redo if @pn < $n; } printf "%s\n", join(", ",@pn); |