2010/01/17 08:23:03
10000までの完全数をもとめる(Haskell)
mixiの課題丸投げから「10000以下の完全数を求める」
[n|n <- [1..10000],sum [x | x <- [1..(n `div` 2)], n `mod` x == 0] == n]
mixiの課題丸投げから「10000以下の完全数を求める」
[n|n <- [1..10000],sum [x | x <- [1..(n `div` 2)], n `mod` x == 0] == n]