1 2 3 4 5
isPerfect :: Int -> Bool isPerfect n = sum ( filter (\x -> mod n x == 0) [1..(n-1)]) == n main = print $ isPerfect 496
1
True