7 lines
139 B
Haskell
7 lines
139 B
Haskell
pyth :: Int -> [(Int, Int, Int)]
|
|
pyth n =
|
|
[ (x, y, z)
|
|
| x <- [1 .. n]
|
|
, y <- [x .. n]
|
|
, z <- [y .. n]
|
|
, x ^ 2 + y ^ 2 == z ^ 2 ]
|