M
@DaveK said:As opposed to APL/SQL, where ¨¯×÷←↑→↓∆∇∘∣∧∨∪∂∆∏∑√∞Ω⅞∫¾№℅≠☺☻☼♫◥▂▃▄▅▆▇█▉▊◀◉◊◎␀⋙⊱⋛⋨⌂⊎∮↯⁂.∼≠≤≥≬⊂⊃⌈⌊⊤⊥⋆ defines a label? You sick man. Go and look at the source code for the A+ interpreter as your punishment. I recommend src/a/f.c which contains the following C code:Z H1(rdc){I r,d[9];ND1 r=a->r-1;Q(r<1,7);R mv(d,a->d+1,r),*d*=*a->d,rsh(a,r,d);}Z H1(monadicIota){A z;I1;{I r=a->n,*d=a->p,n=tr1(r,d);Q(n<0,9) Q(a->r>1,7)Q(r>MAXR,13)W(ga(It,r,n,d))d=z->p;DO(n,d[i]=i)R(I)z;}}Z H1(rav){ND1 R rsh(a,1,&a->n);}Z H1(sha){A z;ND1 W(gv(It,a->r))mv(z->p,a->d,a->r);R(I)z;}