Lychrel数の定義が良く分からんかった。 

isPalin x=(reverse.show)x==show x
addRev x = (+x).read.reverse.show$x
isLychrel = all (not.isPalin).tail.take 50.iterate addRev
p055 = length.filter isLychrel $[1..9999]