Bob,
The first thing I noticed about your solution was the shortened version of
my "remove blanks"
from ]#~(' '~:]) to ' '-.~": I had not known about "less" (-.). That's
great! Now I need to work through the rest of your fun version, to learn
more stuff.
Skip
Skip Cave
Cave Consulting LLC
On Sun, Dec 14, 2014 at 12:03 PM, robert therriault <[email protected]>
wrote:
>
> Okay, let's try this approach (although I did like what Kip and Mike put
> together).
>
> fun=: (' '-.~":)@(({. (* , (* +/)) }.) - 0 0 , 1&{)
> fun 7 2 5
> 143547
> fun 9 9 9
> 8181153
> fun 9 0 9
> 08181
>
> Cheers, bob
>
> On Dec 14, 2014, at 8:37 AM, Skip Cave <[email protected]> wrote:
>
> > Answer:
> >
> > the verb fun takes three integers as input.
> >
> > the output has three sections.
> >
> > 1. The first section is the product of the first two integers.
> >
> > 2. The second section is the product of the first and third integers.
> >
> > 3. the third section is the sum of those first two products, minus the
> > second integer.
> >
> > The final output is a vector of the three results, with the spaces
> removed.
> >
> > This should hold true for any three integers.
> >
> > rb =:]#~(' '~:]) NB. Remove all blanks
> >
> > 'a b c' =. 2 4 6
> >
> > fun =. 3 : 'rb ": (a*b), (a*c), ((a*b)+(a*c)-b)'
> >
> > fun
> > 81216
> >
> > 'a b c' =. 9 9 9
> > fun
> > 8181153
> >
> > 'a b c' =. 6 12 14
> > fun
> > 7284144
> >
> > ​Skip
> > ----------------------------------------------------------------------
> > For information about J forums see http://www.jsoftware.com/forums.htm
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
>
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
