Zumkeller numbers: Difference between revisions
m
→{{header|AppleScript}}: Subset-sum matching handler relabelled, reparametered, and made partly iterative.
m (→{{header|AppleScript}}: Pulled out the subtotal check to a separate handler. Slight speed improvement by only getting proper divisors and knowing the missing one.) |
m (→{{header|AppleScript}}: Subset-sum matching handler relabelled, reparametered, and made partly iterative.) |
||
Line 574:
end properDivisors
on
script o
property l : lst
on
if (
set i to i - 1
end repeat
end cs
end script
return o's
end canSumTo
on isZumkeller(n)
Line 602 ⟶ 603:
set halfSum to sum / 2
return ((halfSum ≥ n) and (halfSum as integer = halfSum) and (
end isZumkeller
| |||