RosettaCodeData/Task/100-doors/AppleScript/100-doors-4.applescript

6 lines
133 B
AppleScript

map(factorCountMod2, enumFromTo(1, 100))
on factorCountMod2(n)
{n, (length of integerFactors(n)) mod 2 = 1}
end factorCountMod2