vin / challenge

Python challenge and project euler

This URL has Read+Write access

challenge / euler / euler004.hs
100644 4 lines (2 sloc) 0.139 kb
raw blame history 
1
2
3
4

isPalindrome x = show x == (reverse . show) x
 
main = print $ maximum $ filter isPalindrome [x*y | x <- [999,998..100], y<-[999,998..100]]