Abundant odd numbers: Difference between revisions
Content added Content deleted
m (→{{header|FutureBasic}}: Code indents inserted) |
|||
Line 3,041: | Line 3,041: | ||
local fn SumOfProperDivisors( n as NSUInteger ) as NSUinteger |
local fn SumOfProperDivisors( n as NSUInteger ) as NSUinteger |
||
NSUinteger sum = 1 |
NSUinteger sum = 1 |
||
cln for (unsigned i = 3, j; i < sqrt(n)+1; i += 2) if (n % i == 0) sum += i + (i == (j = n / i) ? 0 : j); |
cln for (unsigned i = 3, j; i < sqrt(n)+1; i += 2) if (n % i == 0) sum += i + (i == (j = n / i) ? 0 : j); |
||
end fn = sum |
end fn = sum |
||