Haskell作業2(1)|畢達哥拉斯三元組

module MyTriads where

triads :: Int -> [(Int,Int,Int)]
triads n = [(x,y,z) | x <- [1..n] ,y <- [1..n], z <- [1..n], x^2 + y^2 == z^2]

triads2 :: Int -> [(Int,Int,Int)]
triads2 n = 
	[(x,y,z) | x <- [1..n], y <- [1..n], z <- [1..n] , x <= y && x^2 + y^2 == z^2]