Colorless Sight Wiki / ProjectEular/Problem4

ProjectEular

-- Problem 4

module Main (main) where

main :: IO ()
main = print $ problem4

problem4 :: (Integral a) => a
problem4 = maximum [ x * y | x <- [100..999], y <- [x..999], is_palindrome (x * y) ]

is_palindrome :: (Integral a) => a -> Bool
is_palindrome num = reverse (show num) == show num

最新の20件