Merge pull request #6119 from adamcrussell/master

cleaned up code

1 files changed, 6 insertions, 6 deletions

diff --git a/challenge-164/adam-russell/perl/ch-2.pl b/challenge-164/adam-russell/perl/ch-2.pl
index 356b738b68..39c323cbab 100644
--- a/challenge-164/adam-russell/perl/ch-2.pl
+++ b/challenge-164/adam-russell/perl/ch-2.pl
@@ -1,7 +1,7 @@
 use strict;
 use warnings;
 ##
-# W
+# Write a script to find the first 8 Happy Numbers in base 10. 
 ##
 use boolean;
 use constant N => 8;
@@ -10,12 +10,12 @@ sub happy{
     my $n = shift;
     my @seen;
     my $pdi = sub{
-        my $x = shift;
+        my $n = shift;
         my $total = 0;
         {
-            $total += ($x % 10)**2;
-            $x = int($x / 10);
-            redo if $x > 0;
+            $total += ($n % 10)**2;
+            $n = int($n / 10);
+            redo if $n > 0;
         }
         return $total;
     };
@@ -33,7 +33,7 @@ MAIN:{
     {
         $i++;
         push @happy, $i if happy($i);
-        redo if @happy < 8;
+        redo if @happy < N;
     }
     print join(", ", @happy) . "\n";
 }