Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (7 sloc) 230 Bytes
module Problem_4
( solve
) where
reverseInt :: Integer -> Integer
reverseInt x = read . reverse . show $ x
isPalindrome n = n == (reverseInt n)
solve = maximum $ filter isPalindrome [x*y | x <-[100..999], y<-[100..999]]
You can’t perform that action at this time.