[Jprogramming] Am I understanding m/y ?

[Skip Cave]

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