Langtons Ant by *yuko*

byte::a(99,99)=0;read*,n;i=30;j=i;k=i;m=i;x=1
do1 n=1,n;w=a(i,j);a(i,j)=2-w;z=x;x=y*w-y;y=z-z*w;i=i-x;j=j-y;k=min(i,k);l=max(i,l);1 m=min(j,m)
print'(9999a1)',((a(i,j)/2*3+32,i=k,l),10,j=m,99);end

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

download

return to the top page