a=矢量(199);nxt=向量(2);{打印(“0 0”);r=1;d=1;k=0;对于(n=1,10 000,打印(n“”v=nxt[1+r%2]+=d);如果(n<=#a,a[n]=v;);k++;如果(k==abs(a[r]),k=0;r++;d=-d;如果(r>#a,断裂;);););}退出