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