Ok here is an explicit adverb that builds on the idea:
applyverbs=: 3 : ('[email protected]&.>y';':';'[email protected]&.>/y')"_1
eachv=: 1 : ('m applyverbs y';':';'m applyverbs x,.y')
(<rnge) fns eachv data
+--------------+--------------+--------------+-------------------+
| 2 1 0 _1 _2| 1 2 3 4 5| 7 8 9 10 11| 3 1.5 1 0.75 0.6|
|11 10 9 8 7| 5 10 15 20 25|23 24 25 26 27|12 6 4 3 2.4|
|20 19 18 17 16| 9 18 27 36 45|39 40 41 42 43|21 10.5 7 5.25 4.2|
|29 28 27 26 25|13 26 39 52 65|55 56 57 58 59|30 15 10 7.5 6|
|38 37 36 35 34|17 34 51 68 85|71 72 73 74 75|39 19.5 13 9.75 7.8|
+--------------+--------------+--------------+-------------------+
fns eachv data
+--------+---+-----------+--------+
| 0 1 2|0 1| 0 1 2 3| 0 1 2|
| 3 4 5|2 3| 4 5 6 7| 3 4 5|
| 6 7 8|4 5| 8 9 10 11| 6 7 8|
| 9 10 11|6 7|12 13 14 15| 9 10 11|
|12 13 14|8 9|16 17 18 19|12 13 14|
+--------+---+-----------+--------+
> From: Sherlock, Ric
>
> For practical use I really like Henry/Martin's adverb approach, but
> like Victor haven't had any success trying to turn your idea into one
> that does the job.
>
> > From: Raul Miller
> >
> > On Wed, Aug 19, 2009 at 11:28 PM, Sherlock,
> > Ric wrote:
> > > fns=: ((-~ +/)"1)`((*~ +/)"1)`((+~ +/)"1)`((%~ +/)"1)
> > > rnge=. >: i. 5
> > > ]data=. (i.5 3);(i.5 2);(i.5 4);(i.5 3)
> > ...
> > > Given the gerund "fns" (4 dyadic verbs) and the noun "data" (4
> arrays
> > > which are the desired arguments for the corresponding verbs in the
> > > gerund), how can I apply the verbs to their respective arguments
> > > such that:
> > >
> > > rnge applyVerbs data
> > > +-------------------+--------------+--------------+--------------+
> > > | 3 1.5 1 0.75 0.6| 7 8 9 10 11| 1 2 3 4 5| 2 1 0 _1 _2|
> > > |12 6 4 3 2.4|23 24 25 26 27| 5 10 15 20 25|11 10 9 8 7|
> > > |21 10.5 7 5.25 4.2|39 40 41 42 43| 9 18 27 36 45|20 19 18 17 16|
> > > |30 15 10 7.5 6|55 56 57 58 59|13 26 39 52 65|29 28 27 26 25|
> > > |39 19.5 13 9.75 7.8|71 72 73 74 75|17 34 51 68 85|38 37 36 35 34|
> > > +-------------------+--------------+--------------+--------------+
> >
> > |.fns 4 :'[email protected]&.>/y'"_1 (<rnge),. data
> > +-------------------+--------------+--------------+--------------+
> > | 3 1.5 1 0.75 0.6| 7 8 9 10 11| 1 2 3 4 5| 2 1 0 _1 _2|
> > |12 6 4 3 2.4|23 24 25 26 27| 5 10 15 20 25|11 10 9 8 7|
> > |21 10.5 7 5.25 4.2|39 40 41 42 43| 9 18 27 36 45|20 19 18 17 16|
> > |30 15 10 7.5 6|55 56 57 58 59|13 26 39 52 65|29 28 27 26 25|
> > |39 19.5 13 9.75 7.8|71 72 73 74 75|17 34 51 68 85|38 37 36 35 34|
> > +-------------------+--------------+--------------+--------------+
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
