Pythagorean quadruples: Difference between revisions

=={{header|Lua}}==

{{trans|}}

<lang lua>-- initialize

local N = 2200

local ar = {}

for i=1,N do

ar[i] = false

end

-- process

for a=1,N do

for b=a,N do

if (a % 2 ~= 1) or (b % 2 ~= 1) then

local aabb = a * a + b * b

for c=b,N do

local aabbcc = aabb + c * c

local d = math.floor(math.sqrt(aabbcc))

if (aabbcc == d * d) and (d <= N) then

ar[d] = true

end

end

end

end

-- print('done with a='..a)

end

-- print

for i=1,N do

if not ar[i] then

io.write(i.." ")

end

end

print()</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>