2012-06-09から1日間の記事一覧
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] 遅いです。
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] 遅いです。