6 lines
158 B
Haskell
6 lines
158 B
Haskell
main :: IO ()
|
|
main = putStr $ show solve
|
|
|
|
solve :: Integer
|
|
solve = maximum [a * b | a <- [100 .. 999], b <- [a .. 999], let s = show $ a * b, s == reverse s]
|