7 lines
235 B
Haskell
7 lines
235 B
Haskell
|
pithagoreanTriangles :: [[Integer]]
|
||
|
|
pithagoreanTriangles =
|
||
|
|
[ [a, b, round c] | b <- [1..]
|
||
|
|
, a <- [1..b]
|
||
|
|
, let c = sqrt (fromInteger (a^2 + b^2))
|
||
|
|
, isInteger (c :: Double) ]
|