Abundant odd numbers: Difference between revisions
m
→{{header|AppleScript}}: Minor improvement to handler.
(Solution in q) |
m (→{{header|AppleScript}}: Minor improvement to handler.) |
||
Line 353:
<lang applescript>on aliquotSum(n)
repeat with i
if (n mod i is 0) then set sum to sum +
▲ if (n mod i is 0) then set sum to sum + i + n div i
▲ end repeat
return sum
|