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
''
∇


Reply via email to