[euler] finish partially complete implementation

Raku · Apr 22, 2015 · aabe746 · aabe746
1 parent 65086c1
commit aabe746
Showing 1 changed file with 12 additions and 8 deletions.
diff --git a/categories/euler/prob003-hexmode.pl b/categories/euler/prob003-hexmode.pl
@@ -33,14 +33,18 @@
     }
 }
 
-my $p = Prime.new;
-my @q = gather { take $p.next for (0..10) };
-my @r;
+my $number = 600851475143;
+
+my $prime = Prime.new;
+my $current-prime;
+my @primes = gather repeat {
+    $current-prime = $prime.next;
+    if $number %% $current-prime {
+        take $current-prime;
+        $number /= $current-prime;
+    }
+} while ($current-prime < $number);
 
-for (0..10) {
-    push @r, $p.next;
-}
-say @q.join(",");
-say @r.join(",");
+say @primes.max;
 
 # vim: expandtab shiftwidth=4 ft=perl6