
29 Jul
2010
29 Jul
'10
3:51 a.m.
On Thu, Jul 29, 2010 at 2:02 AM, Bryce Verdier
main :: IO () main = print . maximum $ [ x * y | x <- nums, y <- nums, is_palimdrome (x * y)] where nums main :: IO ()
This version of main is faster for me. main :: IO () main = print . maximum $ [ x * y | x <- [100..1000], y <- [100..x], is_palimdrome (x * y)] David.