Sometimes it seems like it would be nice to have a variation on fork
where instead of (f g h) we get *f@[ g h@])
And, of course, we can do that manually. (Also, I forget the contexts
where I have wanted to use this. Maybe I'll remember later. I also
have a vague memory of someone else asking for something like this.)
Anyways, it's fairly straightforward to implement, though perhaps a
bit tough to read (since mostly we don't mess with this kind of
thing):
tine=: 1 :0
2 :('u@[ (',(5!:5<'u'),') v@]')
)
(i.2 3) $ $tine , p:i.3 2
2 3 5
7 11 13
FYI,
--
Raul
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
