15 lines
429 B
Text
15 lines
429 B
Text
-- in some movie script
|
|
----------------------------------------
|
|
-- Prints all perfect numbers up to n
|
|
-- @param {integer|float} n
|
|
----------------------------------------
|
|
on findPerfects (n)
|
|
repeat with i = 2 to n
|
|
sum = frac(1, i)
|
|
cnt = sqrt(i)
|
|
repeat with fac = 2 to cnt
|
|
if i mod fac = 0 then sum = fAdd(sum, frac(1, fac), frac(fac, i))
|
|
end repeat
|
|
if sum.denom = sum.num then put i
|
|
end repeat
|
|
end
|