Abundant odd numbers: Difference between revisions

Content added Content deleted

Inline

@@ Line 353: / Line 353: @@
 <lang applescript>on aliquotSum(n)
-    set sum to (n > 1) as integer
+    if (n < 2) then return 0
-    if (n > 1) then
+    set sum to 1
-        set sqrt to n ^ 0.5
+    set sqrt to n ^ 0.5
-        if (sqrt mod 1 is 0) then
+    repeat with i from (sqrt div 1) to 2 by -1
-            set sum to sum + sqrt as integer
+        if (n mod i is 0) then set sum to sum + i + n div i
+    end repeat
-            set sqrt to sqrt - 1
+    if (sqrt mod 1.0 is 0.0) then set sum to sum - sqrt div 1
-        end if
-        repeat with i from (sqrt div 1) to 2 by -1
-            if (n mod i is 0) then set sum to sum + i + n div i
-        end repeat
-    end if
     return sum