From 5efb41abe8d0f779ffbfa6de992e61b2793d8d9a Mon Sep 17 00:00:00 2001
From: E7-87-83 <fungcheokyin@gmail.com>
Date: Thu, 17 Mar 2022 17:03:42 +0800
Subject: better array name for inside &proper_divisors

---
 challenge-156/cheok-yin-fung/perl/ch-2.pl | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/challenge-156/cheok-yin-fung/perl/ch-2.pl b/challenge-156/cheok-yin-fung/perl/ch-2.pl
index ef83ce1222..7dccf5706e 100644
--- a/challenge-156/cheok-yin-fung/perl/ch-2.pl
+++ b/challenge-156/cheok-yin-fung/perl/ch-2.pl
@@ -48,15 +48,15 @@ sub factorization {
 
 sub proper_divisors {
     my @prime_factors = factorization($_[0]);
-    my @pf = (1);
+    my @pd = (1);
     while (scalar @prime_factors > 0) {
         my $n = shift @prime_factors;
-        my @temp_pf = @pf;
-        push @pf, $n*$_ for @temp_pf;
+        my @temp_pd = @pd;
+        push @pd, $n*$_ for @temp_pd;
     }
-    @pf = sort {$a<=>$b} uniqint @pf;
-    pop @pf;    # remove the largest factor -> the number itself
-    return @pf;
+    @pd = sort {$a<=>$b} uniqint @pd;
+    pop @pd;    # remove the largest factor -> the number itself
+    return @pd;
 }
 
 
-- 
cgit