Euclids orchard by *yuko*

input""n:for i=1to n for j=1to n
k=i:l=j:while(l)m=k-l:k=l:l=m^2^.5wend
?chr$(32+84*!k-1);next:?next

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

download

return to the top page