Abundant odd numbers: Difference between revisions
Content added Content deleted
(add task to aarch64 assembly) |
m (→{{header|AppleScript}}: Minor change to aliquotSum() handler.) |
||
| Line 1,053: | Line 1,053: | ||
set sum to 1 |
set sum to 1 |
||
set sqrt to n ^ 0.5 |
set sqrt to n ^ 0.5 |
||
set limit to sqrt div 1 |
|||
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 |
if (n mod i is 0) then set sum to sum + i + n div i |
||
end repeat |
end repeat |
||
if (sqrt mod 1.0 is 0.0) then set sum to sum - sqrt div 1 |
|||
return sum |
return sum |
||