第四日 最大回文数

一个回文数指的是从左向右和从右向左读都一样的数字。由两个两位数乘积构成的最大回文数是9009 = 91 * 99.
找出由两个三位数乘积构成的最大回文数。

find x pre
  | min > x = []
  | otherwise = a ++ (find (x-1)  (maximum (pre:a) ) )
    where min = pre `div` x + 1
          a = take 1 [ z |n<-reverse [min..x], let z = n*x ,let str = show z, str == reverse str ]
answer = maximum $ find 999 0

这不是最好的，projectEuler论坛上有很妙的分析