euler/haskell/euler004.hs

7 lines
151 B
Haskell

module Main where
palindrome n = show n == reverse (show n)
main = do
print (maximum [x*y | x <- [100..999], y <- [100..999], palindrome (x*y)])