OOPS my goof. SORRY- I gave misleading (i.e. stupidly erroneous)
information
What I wanted and have is
( a*b , b*c, c*a )% +.a b c
I have now 4 versions with thanks to all
deltoy=:3 : '(y*_1|. y)%+/y' NB. original
d2y2=:+/ %~ ] * _1&|. NB.Pascal
del2y=:(] * _1 |. ]) % +/ NB. Boss using 13: vs 3: in the original
version (why I couldn't find this built function s beyond me
deltoya=:(* _1&|.)% +/ NB. Day
ytodel =:3 : '(+/(y*_1|. y))% 2 0 1{y' NB. Original
y2d =: (2 0 1&{ %~ ] +/@:* _1&|.) NB. Pascal
y2del=:([: +/ ] * _1 |. ]) % _1&|. ] NB. Boss
ytodela=: ( +/@:* %] ) _1&|. NB. Day
Don Kelly
On 30/10/2013 8:24 AM, Raul Miller wrote:
Here's another way to express your concept:
((+/ .* 1&|.) % */) 2 3 5
1.03333
Thanks,
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
