RosettaCodeData/Task/List-comprehensions/Run-BASIC/list-comprehensions.basic
2023-07-01 13:44:08 -04:00

7 lines
134 B
Text

for x = 1 to 20
for y = x to 20
for z = y to 20
if x^2 + y^2 = z^2 then print "[";x;",";y;",";z;"]"
next z
next y
next x