RosettaCodeData/Task/List-comprehensions/Mathematica/list-comprehensions-1.math

2 lines
68 B
Plaintext

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