diff options
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); |