Viktor Cerovski wrote
>
>
> mapply4=: 4 : 0
> ri=.0
> while. ri<#x do.
> 'p s t'=.ri{x
> 'y ri'=.((s , (#p) }. ])&.(j&|.)@>@{. ; t*_:)^:((#y)~:j=.i.&1 p E. y)
> y;>:ri
> end.
> y
> )
R1 mapply4 T1
|domain error: mapply4
| 'p s t'=.ri {x
NB. for R1 and T1 see
http://jsoftware.com/pipermail/programming/2009-December/017323.html
R.E. Boss
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
