4 ms·
Or in Haskell: triples = [(a,b,c) | c <- [1..], a <- [1..c], b <- [a..c], a*a + b*b == c*c] mapM_ print $ take 10 triples
by tromp 8y ago
Or in Haskell:
triples = [(a,b,c) | c <- [1..], a <- [1..c], b <- [a..c], a*a + b*b == c*c]
mapM_ print $ take 10 triples