From ac763daa5b5004646d92bfc45a2d37dd6adfbcbd Mon Sep 17 00:00:00 2001
From: Michael Manring <michael@manring>
Date: Wed, 16 Mar 2022 10:27:46 +0700
Subject: rename confusing variable

---
 challenge-156/pokgopun/perl/ch-1.pl | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'challenge-156')

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);
-- 
cgit