Pythagorean quadruples: Difference between revisions
Pythagorean quadruples in Yabasic
(Pythagorean quadruples in PureBasic) |
(Pythagorean quadruples in Yabasic) |
||
Line 2,303:
1 2 4 5 8 10 16 20 32 40 64 80 128 160 256 320 512 640 1024 1280 2048
</pre>
=={{header|Yabasic}}==
{{trans|FreeBASIC}}
<lang freebasic>limite = 2200
s = 3
dim l(limite)
dim ladd(limite * limite * 2)
for x = 1 to limite
x2 = x * x
for y = x to limite
ladd(x2 + y * y) = 1
next y
next x
for x = 1 to limite
s1 = s
s = s + 2
s2 = s
for y = x +1 to limite
if ladd(s1) = 1 l(y) = 1
s1 = s1 + s2
s2 = s2 + 2
next y
next x
for x = 1 to limite
if l(x) = 0 print str$(x), " ";
next x
print
end</lang>
{{out}}
<pre>1 2 4 5 8 10 16 20 32 40 64 80 128 160 256 320 512 640 1024 1280 2048</pre>
=={{header|zkl}}==
| |||