RosettaCodeData/Task/List-comprehensions/Run-BASIC/list-comprehensions.run
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07: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