diff options
| -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 { |