読者です 読者をやめる 読者になる 読者になる

morris555's diary

高校生のブログです。

Problem 21

Problem 21です。

import Data.List

main = print . sum . filter isAmicable $ [1..10000]

isAmicable n = n == (sumDivisors . sumDivisors $ n) && n /= sumDivisors n

sumDivisors n = sum . filter (\x -> (n `mod` x) == 0) $ [1..n-1]

遅いです。