一个回文数指的是从左向右和从右向左读都一样的数字。由两个两位数乘积构成的最大回文数是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论坛上有很妙的分析
