Spiral Fixed by *yuko*

m=-1;read*,n;k=1;l=0;do i=2-n*2,0;do j=i/2,0;m=m+k;n=n+l;print'(2i0" "$)',m,n-1;enddo;j=k;k=l;l=-j;enddo;end

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

download

return to the top page