Factors of an integer: Difference between revisions
→{{header|AppleScript}}
Line 270:
set realRoot to n ^ (1 / 2)
set intRoot to realRoot as integer
set blnPerfectSquare to intRoot = realRoot
-- Factors up to square root of n,
set lows to filter(mClosure(isFactor of mf, {n:n}), range(1, intRoot))
-- and quotients of these factors beyond the square root.
items (1 + (blnPerfectSquare as integer)) thru -1 of reverse of lows)
else▼
end integerFactors
on run
integerFactors(
--> {1, 2, 3, 4, 5, 6, 8, 10, 12, 15, 20, 24, 30, 40, 60, 120}
end run
Line 346 ⟶ 345:
property lambda : f
end script
end mClosure</lang>
{{Out}}
| |||