I wrote:

>          oleg =:  /.~  (`(i.@:#)) (`:6)

We can also use cut:

           crs0  =:     /.~  (`(i.@:#)) (`:6)
           crs1  =:  (;.1)~  (` 1:    ) (`:6)

           1:`2:`3:  crs1 i. 5 5
        1 2 3 1 2

I'm working on solutions using other operators that accept gerundial arguments.

-Dan
  

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm

Reply via email to