diff options
| author | Mark <53903062+andemark@users.noreply.github.com> | 2022-06-13 08:15:09 +0000 |
|---|---|---|
| committer | Mark <53903062+andemark@users.noreply.github.com> | 2022-06-13 08:15:09 +0000 |
| commit | e420e3c4fa3aa286c3f62d52d940afe3c6eb573e (patch) | |
| tree | cd9cf7d127b5c4a34abf5e58a6fc6e20b60ba06b | |
| parent | 19802bc80f88327a107ae5b2f0bf21a32ea437e4 (diff) | |
| download | perlweeklychallenge-club-e420e3c4fa3aa286c3f62d52d940afe3c6eb573e.tar.gz perlweeklychallenge-club-e420e3c4fa3aa286c3f62d52d940afe3c6eb573e.tar.bz2 perlweeklychallenge-club-e420e3c4fa3aa286c3f62d52d940afe3c6eb573e.zip | |
Challenge 169 Solutions (Raku)
| -rw-r--r-- | challenge-169/mark-anderson/raku/ch-2.raku | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/challenge-169/mark-anderson/raku/ch-2.raku b/challenge-169/mark-anderson/raku/ch-2.raku index 75198c2c74..20d4e0a35e 100644 --- a/challenge-169/mark-anderson/raku/ch-2.raku +++ b/challenge-169/mark-anderson/raku/ch-2.raku @@ -15,12 +15,15 @@ is-deeply Achilles[^100], 15488, 15552, 16000, 16200, 16875, 16928, 17496, 17672, 18000, 18252, 18432, 19208, 19652, 19773, 20000, 20808, 21125, 21168, 21296, 21600); -multi Achilles { (2..*).hyper.grep(&Achilles).flat } +sub Achilles { -multi Achilles(\n) -{ - my \pf = prime-factors(n).List; - my \powerful = so n %% all pf.squish >>**>> 2; - my \imperfect = ([gcd] pf.Bag.values) == 1; - powerful and imperfect + sub Achilles(\n) + { + my \pf = prime-factors(n).List; + my \powerful = so n %% all pf.squish >>**>> 2; + my \imperfect = ([gcd] pf.Bag.values) == 1; + powerful and imperfect + } + + (2..*).hyper.grep(&Achilles) } |