Problem 9
http://projecteuler.net/index.php?section=problems&id=9
--Haskell, 20090101 main = print $ head [x*y*(1000-x-y) | x<-[1..998], y<-[1..998], x<y, y<1000-y-x, x^2+y^2==(1000-y-x)^2]
http://projecteuler.net/index.php?section=problems&id=9
--Haskell, 20090101 main = print $ head [x*y*(1000-x-y) | x<-[1..998], y<-[1..998], x<y, y<1000-y-x, x^2+y^2==(1000-y-x)^2]