import "StandardLibrary" main = do (r,t) = Debug.time (foldl (+) 0 $ map (\(_,_,z) -> z) $ [(a,b,c) | a <- [1..50], b <- [1..50], c <- [1..50], a*a + b*b == c*c]) print t r -- 1172