divisores :: Int -> [Int]
divisores n = [d | d <- [1..n], n `mod` d == 0]

perfeito :: Int -> [Int]
perfeito n = [t | t <- [1..n], t == (sum $ init $ divisores t)]