RosettaCodeData/Task/List-comprehensions/F-Sharp/list-comprehensions.fs
2023-07-01 13:44:08 -04:00

4 lines
156 B
FSharp

let pyth n = [ for a in [1..n] do
for b in [a..n] do
for c in [b..n] do
if (a*a+b*b = c*c) then yield (a,b,c)]