APLщина в сорцах зашкаливает - вот берем например самый первый файл с многозначительным и дико описательным именем a.c и видим примерно такой адовый угар:
static A jtmemoput(J jt,I x,I y,A self,A z){A*cv,h,*hv,q;I c,*jv,k,m,*mv,*v; RZ(z); c=AC(self); h=VAV(self)->h; hv=AAV(h); q=hv[0]; mv= AV(q); q=hv[1]; jv= AV(q); q=hv[2]; cv=AAV(q); m=AN(q); if(m<=2**mv){A cc,*cu=cv,jj;I i,*ju=jv,n=m,*u; v=ptab; while(m>=*v)++v; m=*v; RZ(jj=reshape(v2(m,2L),sc(IMIN))); jv= AV(jj); GA(cc,BOX,m,1,0); cv=AAV(cc); for(i=0,u=ju;i<n;++i,u+=2)if(IMIN!=*u){ k=HIC(x,y)%m; v=jv+2*k; while(IMIN!=*v){v+=2; if(v==jv+2*m)v=jv;} cv[(v-jv)/2]=cu[i]; cu[i]=0; v[0]=u[0]; v[1]=u[1]; } q=hv[1]; AC(q)=1; fa(q); AC(jj)+=c; hv[1]=jj; q=hv[2]; AC(q)=1; fa(q); AC(cc)+=c; hv[2]=cc; } ++*mv; k=HIC(x,y)%m; v=jv+2*k; while(IMIN!=*v){v+=2; if(v==jv+2*m)v=jv;} cv[(v-jv)/2]=raa(c,z); v[0]=y; v[1]=x; R z; }комментарии излишни, бгг
программу на
Комментариев нет:
Отправить комментарий