7 lines
151 B
Haskell
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)])
|