[Jprogramming] Am I understanding m/y ?

[Alex Shroyer]

That's really cool, Pascal.

On Wed, Feb 24, 2016 at 12:22 PM, Skip Cave <skip at caveconsulting.com> wrote:

> Pascal said:
>
>      foldl =: 1 : 'm/`((|.m)/)'
>      *`+ foldl\. >: i.7
> 209 209 207 69 65 13 7
>
> <<<>>>
>
>      %`- foldl\. >: i.7
> 0.6 1.66667 0.333333 9 _5 _1 7
>
> Nice! I think the foldl definition can be classified "simple" as well!
>
> Skip
>
>
> On Wed, Feb 24, 2016 at 11:02 AM, Pascal Jasmin <godspiral2000 at yahoo.ca>
> wrote:
> > with just 2 gerund items,
> >
> >
> > foldl =: 1 : 'm/`((|.m)/)'
> >
> >
> >  *`+ foldl\. >: i.7
> > 209 209 207 69 65 13 7
> >
> >
> > ----- Original Message -----
> > From: Alex Shroyer <ashroyer at gmail.com>
> > To: programming at jsoftware.com
> > Sent: Wednesday, February 24, 2016 9:57 AM
> > Subject: Re: [Jprogramming] Am I understanding m/y ?
> >
> > For Skip's example, a completely literal version:
> >
> > ((*`+)/)`((+`*)/)\. >:i.7
> >
> > On Wed, Feb 24, 2016 at 9:25 AM, Brian Schott <schott.brian at gmail.com>
> > wrote:
> >
> >> Pascal,
> >>
> >> I think your <: is too limiting. But I love your approach.
> >>
> >> fn =: <@|.@[ (|.each@:|.@:($~ each 1 >.   <:)  4 : 'x/ y' every
> <\.@]) ]
> >> fn =: <@|.@[ (|.each@:|.@:($~ each 1 >. i.@#)  4 : 'x/ y' every
> <\.@]) ]
> >>
> >> On Tue, Feb 23, 2016 at 10:51 PM, Pascal Jasmin <godspiral2000 at yahoo.ca
> >
> >> wrote:
> >>
> >> > fn =: <@|.@[ (|.each@:|.@:($~ each 1 >. <:)  4 : 'x/ y' every
> <\.@]) ]
> >> >
> >> >
> >> >  %`- fn 1 2 3 4 5 6 7
> >> > 0.6 1.66667 0.333333 9 _5 _1 7
> >> >
> >> >
> >> >  *`+ fn 1 2 3 4 5 6 7
> >> > 209 209 207 69 65 13 7
> >> >
> >> >
> >> >
> >> >
> >> ----------------------------------------------------------------------
> >> 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
>