Create a gist now

Instantly share code, notes, and snippets.

What would you like to do?
Project Euler - Problem 4
result = maximum
$ foldr (++) []
$ map palindromes [999,998..1]
where palindromes x =
filter isPalindrome
$ zipWith (*)
(replicate x x)
isPalindrome n = show n == reverse (show n)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment