RosettaCodeData/Task/List-comprehensions/Mathematica/list-comprehensions-1.math
2023-07-01 13:44:08 -04:00

1 line
68 B
Text

Select[Tuples[Range[100], 3], #1[[1]]^2 + #1[[2]]^2 == #1[[3]]^2 &]