import Data.List (nub)
func::[(Double, Double, Double)]
func =
[(a, b, c) | a <- [1..15], b <- [1..15], c <- [1..15], a^2 + b^2 == c^2]
|> nub
main :: IO ()
main = print func
1.6m questions
2.0m answers