Create a gist now

Instantly share code, notes, and snippets.

Project Euler - Problem 9
result = truncate
$ product
$ head
$ filter (\ns -> sum ns == 1000)
$ map (\[x,y,xy'] -> [x,y,sqrt(xy')])
[[x, y, x^2 + y^2] |
x <- [1..995],
y <- [(x + 1)..996]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment