完全数というのは自分の除く約数の和が自分に等しい数．例えば 6 = 1 + 2 + 3 28 = 1 + 2 + 4 + 7 + 14なので，6と28は完全数である．これをHaskellで書いてみる measure n = [ x | x <- [1..(n `div` 2)], n `mod` x == 0 ] perfect = [x | x <- [1..], x =…