ダブル完全数
http://ja.doukaku.org/25/より。Pythonのコードを移植しただけ。
module Main (main) where sumMeasure :: Int -> Int sumMeasure n = sum [x | x <- [1 .. n - 1], n `mod` x == 0] main :: IO () main = mapM_ putStrLn [show n | n <- [1 .. 10000], sumMeasure n == 2 * n]