Challenge 141 Solutions (Raku)

1 files changed, 12 insertions, 1 deletions

diff --git a/challenge-141/mark-anderson/raku/ch-1.raku b/challenge-141/mark-anderson/raku/ch-1.raku
index 2a2f90f510..f5547da629 100644
--- a/challenge-141/mark-anderson/raku/ch-1.raku
+++ b/challenge-141/mark-anderson/raku/ch-1.raku
@@ -1,5 +1,16 @@
 #!/usr/bin/env raku
 
 use Prime::Factor;
+use Test;
+plan 2;
 
-say (^Inf).race.grep({ divisors($_) == 8 })[^10];
+is-deeply number-divisors(8)[^10], 
+          (24, 30, 40, 42, 54, 56, 66, 70, 78, 88), 'example 1';
+
+is-deeply number-divisors(8)[^10000].tail(5), 
+          (45626, 45627, 45638, 45642, 45646), 'race ftw!';
+
+sub number-divisors(\n)
+{
+    (^Inf).race.grep({ divisors($_) == n });
+}