cleaned up code

2 files changed, 8 insertions, 6 deletions

diff --git a/challenge-167/adam-russell/perl/ch-1.pl b/challenge-167/adam-russell/perl/ch-1.pl
index 7dda485fdc..4bfd74d9ac 100644
--- a/challenge-167/adam-russell/perl/ch-1.pl
+++ b/challenge-167/adam-russell/perl/ch-1.pl
@@ -7,13 +7,16 @@ use boolean;
 use Math::Primality qw/is_prime/;
 
 sub is_circular_prime{
-    my($x) = @_;
+    my($x, $circular) = @_;
     my @digits = split(//, $x);
+    my @rotations;
     for my $i (0 .. @digits - 1){
         @digits = (@digits[1 .. @digits - 1], $digits[0]);
         my $candidate = join("", @digits) + 0;
+        push @rotations, $candidate;
         return false if !is_prime($candidate);
     }
+    map{$circular->{$_} = -1} @rotations;
     return true;
 }
 
@@ -23,9 +26,8 @@ sub first_n_circular_primes{
     my %circular;
     my @circular_primes;
     {
-        if(is_circular_prime($i) && !$circular{join("", sort {$a <=> $b} split(//, $i))}){
+        if(!$circular{$i} && is_circular_prime($i, \%circular)){
             push @circular_primes, $i; 
-            $circular{join("", sort {$a <=> $b} split(//, $i))} = -1;
         }
         $i++;
         redo if @circular_primes < $n;
diff --git a/challenge-167/adam-russell/perl/ch-2.pl b/challenge-167/adam-russell/perl/ch-2.pl
index ba38e6c0dd..6b2214bb1c 100644
--- a/challenge-167/adam-russell/perl/ch-2.pl
+++ b/challenge-167/adam-russell/perl/ch-2.pl
@@ -34,7 +34,7 @@ sub gamma{
 }
 
 MAIN:{
-    print gamma(3) . "\n";
-    print gamma(5) . "\n";
-    print gamma(7) . "\n";
+    printf("%.2f\n",gamma(3));
+    printf("%.2f\n",gamma(5));
+    printf("%.2f\n",gamma(7));
 }
\ No newline at end of file