Bill - Thanks; that's quite a shortcut -- my
negligence: wasn't aware (q:) had also a dyadic use ...
The closest I could get toward that verb would now be
red=. [: ^/ __ & q:
red 4200
8 3 25 7
(didn't manage to keep (q:) "outside" ...)
-M
At 2016-07-05 11:10, you wrote:
q: in ^/__ q:4200 is dyad
executed as
^/ ( __ q: 4200 )
ÐÑ, 05 иÑл 2016, Martin Kreuzer напиÑал(а):
> Please be patient while I elaborate;
>
> Ric -
> -----
> Looking at your solution, I first read up on "Key" (x u /.. y) and came up
> with this example:
>
> 2 3 2 3 3 (2&|)/. 9 5 7 6 4
> 1 1 0
> 1 0 0
>
> which I interpreted as
> * group the list on the left (2 2) (3 3 3), then
> * partition the list on the right accordingly (9 7) (5 6 4), then
> * apply decision between odd (1) and even (0) to the two partitions;
> (the zero in the first row is patched).
>
> I then did 'group' and 'tally' on a vector (along an example borrowed from
> NuVoc page)
>
> ]a=. 7 9 8 7 8 7
> 7 9 8 7 8 7
> (a # /. a)
> 3 1 2
> (~. a) ,:(a # /. a)
> 7 9 8
> 3 1 2
>
> to show the frequency of each item.
>
> Replacing 'tally' by 'multiply' and extracting (a)
>
> (a */ /. a)
> 343 9 64
> (*/ /.~) a
> 343 9 64
>
> I arrived the sought verb
>
> red=. */ /.~
> red q: 4200
> 8 3 25 7
> ] v=. q: 4200
> 2 2 2 3 5 5 7
> red v
> 8 3 25 7
>
> Don -
> -----
> Looking at your solution, I first tried to put it ( in my naive way) into a
> verb like
>
> red=. ^/__
> red q: 4200
> 2 3 5 7
> 3 1 2 1
> red v
> |syntax error
> | red v
>
> The first result looked similar to the above
frequency table, which inspired
> me to follow this path:
>
> reduc=. 13 : '^/ (~.y) ,:(y#/.y)'
> reduc v
> 8 3 25 7
> reduc q:4200
> 8 3 25 7
> reduc=. [: ^/ ~. ,: # /.~
> reduc q: 4200
> 8 3 25 7
> reduc v
> 8 3 25 7
>
> This gives the correct answer but is way from what you suggested ...
> Would you kindly explain how you arrived at your code..?
>
> Thanks
> -M
>
> At 2016-07-04 21:50, you wrote:
>
> > ^/__ q:4200
> >
> > 8 3 25 7
> >
> > On Mon, Jul 4, 2016 at 3:48 PM, Ric Sherlock <tikk...@gmail.com> wrote:
> >
> > > How's this?
> > > *//.~ q: 4200
> > > 8 3 25 7
> >
> > > On Tue, Jul 5, 2016 at 9:46 AM, Kip
Murray <thekipmur...@gmail.com> wrote:
> >
> > > > Consider
> > > >
> > > > q: 4200
> > > > 2 2 2 3 5 5 7
> > > >
> > > > How would you "reduce" this to 8 3 25 7 ?
> > > > Write the verb red:
> > > >
> > > > red q: 4200
> > > > 8 3 25 7
> > > >
> > > > --Kip Murray
> > > >
> > > >
> > > >
> > > > --
> > > > Sent from Gmail Mobile
> > > >
----------------------------------------------------------------------
> > > > 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
>
> ----------------------------------------------------------------------
> For information about J forums see http://www.jsoftware.com/forums.htm
--
regards,
====================================================
GPG key 1024D/4434BAB3 2008-08-24
gpg --keyserver subkeys.pgp.net --recv-keys 4434BAB3
gpg --keyserver subkeys.pgp.net --armor --export 4434BAB3
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
