Skip to content

@oscarpica /euler-004.hs
Created

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Project Euler - Problem 4
result = maximum
$ foldr (++) []
$ map palindromes [999,998..1]
where palindromes x =
filter isPalindrome
$ zipWith (*)
(replicate x x)
[1..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
Something went wrong with that request. Please try again.