1 2 3 4 5 6main = print $ [ a * b * c | a <- [1..1000], b <- [a..1000], c <- [1000 - a - b], a * a + b * b == c * c ]
1 2 3 4 5 6
main = print $ [ a * b * c | a <- [1..1000], b <- [a..1000], c <- [1000 - a - b], a * a + b * b == c * c ]