Haskell Quiz/Happy Numbers

From HaskellWiki

RubyQuiz #93: A happy number is found using the following process: Take the sum of the squares of its digits, and continue iterating this process until it yields 1, or produces an infinite loop.

The Problem[edit]

Solutions[edit]