Concentric Circles by teebee

dim a(7^7)
do
for j=1to 99a(i*i+j*j)=1next
if a(i)?i^.5using"%6f"
i=i+1loop

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page