2 lines
68 B
Text
2 lines
68 B
Text
|
Select[Tuples[Range[100], 3], #1[[1]]^2 + #1[[2]]^2 == #1[[3]]^2 &]
|