diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2022-03-16 08:26:54 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-03-16 08:26:54 +0000 |
| commit | ca4c3754b8a3fc2b222ef48542c8b9b23bcb8815 (patch) | |
| tree | ef29a670cadecf62f600aa9a773e6b3c88c7f112 /challenge-156 | |
| parent | 24e63122ba071239bc964f16df34a87bdfa520e2 (diff) | |
| parent | ac763daa5b5004646d92bfc45a2d37dd6adfbcbd (diff) | |
| download | perlweeklychallenge-club-ca4c3754b8a3fc2b222ef48542c8b9b23bcb8815.tar.gz perlweeklychallenge-club-ca4c3754b8a3fc2b222ef48542c8b9b23bcb8815.tar.bz2 perlweeklychallenge-club-ca4c3754b8a3fc2b222ef48542c8b9b23bcb8815.zip | |
Merge pull request #5784 from pokgopun/pwc156
rename confusing variable
Diffstat (limited to 'challenge-156')
| -rw-r--r-- | challenge-156/pokgopun/perl/ch-1.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-156/pokgopun/perl/ch-1.pl b/challenge-156/pokgopun/perl/ch-1.pl index 1a6d96c0ee..d4b4ce1e2d 100644 --- a/challenge-156/pokgopun/perl/ch-1.pl +++ b/challenge-156/pokgopun/perl/ch-1.pl @@ -6,7 +6,7 @@ my $n = shift; $n = 10 unless $n && $n =~ /^\d+$/; my $i; my %is_prime; -my @prime; +my @pn; { my $j = ++$i; my $sum; @@ -17,14 +17,14 @@ my @prime; } if (defined $is_prime{$sum}) { - push @prime, $i if $is_prime{$sum}; + push @pn, $i if $is_prime{$sum}; } else { $is_prime{$sum} = 0; if (is_prime($sum)){ $is_prime{$sum} = 1; - push @prime, $i + push @pn, $i } } - redo if @prime < $n; + redo if @pn < $n; } -printf "%s\n", join(", ",@prime); +printf "%s\n", join(", ",@pn); |