[perfect number] Added Haskell solution