diff options
| -rw-r--r-- | challenge-141/mark-anderson/raku/ch-1.raku | 13 |
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 }); +} |