From 5ddac62498ed8048ef40ddbb63ac144ca91fcb10 Mon Sep 17 00:00:00 2001
From: Mark A <andemark@a-iot1t.uch.ad.pvt>
Date: Mon, 19 Apr 2021 09:09:34 -0600
Subject: Challenge 109 Solutions (Raku)

---
 challenge-109/mark-anderson/raku/ch-1.raku | 14 ++------------
 1 file 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
             {
-- 
cgit