Aliquot sequence classifications: Difference between revisions
m
→{{header|AppleScript}}: Minor change to aliquotSum() handler.
m (→{{header|Phix}}: minor tidy) |
m (→{{header|AppleScript}}: Minor change to aliquotSum() handler.) |
||
Line 174:
set sum to 1
set sqrt to n ^ 0.5
if (limit = sqrt) then
set sum to sum + limit
set limit to limit - 1
end if
repeat with i from 2 to limit
if (n mod i is 0) then set sum to sum + i + n div i
end repeat
return sum
| |||