100 doors: Difference between revisions

=={{header|Agena}}==

Translation of Algol W. Tested with Agena 2.9.5 Win32

<lang agena># find the first few squares via the unoptimised door flipping method

scope

local doorMax := 100;

local door;

create register door( doorMax );

# set all doors to closed

for i to doorMax do door[ i ] := false od;

# repeatedly flip the doors

for i to doorMax do

for j from i to doorMax by i do door[ j ] := not door[ j ] od

od;

# display the results

for i to doorMax do if door[ i ] then write( " ", i ) fi od; print()

epocs</lang>