Dev-XYS
diff --git a/‎chapter05-List-comprehensions/5.hs‎
Lines changed: 2 additions & 0 deletions b/‎chapter05-List-comprehensions/5.hs‎
Lines changed: 2 additions & 0 deletions
@@ -0,0 +1,2 @@
+pyths :: Int -> [(Int, Int, Int)]
+pyths n = [(x, y, z) | x <- [1..n], y <- [1..n], z <- [y..n], x^2 + y^2 == z^2]
Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+pyths :: Int -> [(Int, Int, Int)]`
	`2`	`+pyths n = [(x, y, z) \| x <- [1..n], y <- [1..n], z <- [y..n], x^2 + y^2 == z^2]`