hello i've been using this looping for array work but there has to be a better apl way of coding the indexing of the ar array any suggestions
∇rs←lp;a;b;ar;i 'lp' 'ar' +ar←4 4⍴11 12 13 14 21 22 23 24 31 32 33 34 41 42 43 44 'a ' +a←1 2 3 4 4 3 2 1 'b ' +b←1 2 3 4 4 3 2 1 i←1 rs←⍴0 sp: rs←rs,ar[a[i]; b[i]] →((i←i+1)⍴a)/sp '' ∇