diff options
| author | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-04-19 09:09:34 -0600 |
|---|---|---|
| committer | Mark A <andemark@a-iot1t.uch.ad.pvt> | 2021-04-19 09:09:34 -0600 |
| commit | 5ddac62498ed8048ef40ddbb63ac144ca91fcb10 (patch) | |
| tree | 1cf22c16ffd03aa39057138ac74ce4b23cc43244 | |
| parent | 869d10d5b06ac131444aa5f6fe59bd532baff317 (diff) | |
| download | perlweeklychallenge-club-5ddac62498ed8048ef40ddbb63ac144ca91fcb10.tar.gz perlweeklychallenge-club-5ddac62498ed8048ef40ddbb63ac144ca91fcb10.tar.bz2 perlweeklychallenge-club-5ddac62498ed8048ef40ddbb63ac144ca91fcb10.zip | |
Challenge 109 Solutions (Raku)
| -rw-r--r-- | challenge-109/mark-anderson/raku/ch-1.raku | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/challenge-109/mark-anderson/raku/ch-1.raku b/challenge-109/mark-anderson/raku/ch-1.raku index fb8807320c..a063ed088f 100644 --- a/challenge-109/mark-anderson/raku/ch-1.raku +++ b/challenge-109/mark-anderson/raku/ch-1.raku @@ -2,21 +2,11 @@ say (1..20).map(&chowla).join(", "); -multi chowla($n where * == 1) -{ - 0 -} - -multi chowla($n) -{ - divisors-sum($n) - 1 - $n; -} - -sub divisors-sum($n) +sub chowla($n) { .unique.sum given gather { - for 1..$n.sqrt -> $i + for 2..$n.sqrt -> $i { if $n %% $i { |