Re: better apl array coding

[Dr . Jürgen Sauermann]

    Hi,
      
      how about:
      
          (a,¨b)⌷¨⊂ar
      11 22 33 44 44 33 22 11
      
      
    Best Regards,
    Jürgen

On 6/15/21 2:45 AM, enztec@gmx.com wrote:

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