pythagorean triples
1234567891011
import Control.Monad
triples :: Int -> Int -> [(Int,Int,Int)]
triples i n = do
x <- [i..n]
y <- [i..n]
z <- [i..n]
guard $ (x^2 + y^2 == z^2)
pure (x,y,z)
main = print $ triples 0 10
Haskell
INFO
pythagorean triples
Haskell
INFO