Re: generalized foldlist problem

• To: mathgroup at smc.vnet.net
• Subject: [mg69169] Re: [mg69057] generalized foldlist problem
• From: Andrzej Kozlowski <akoz at mimuw.edu.pl>
• Date: Thu, 31 Aug 2006 04:40:10 -0400 (EDT)
• References: <200608290725.DAA28981@smc.vnet.net> <3028900F-A603-4119-86E7-AFBCCE5720F8@mimuw.edu.pl>
• Sender: owner-wri-mathgroup at wolfram.com

```Sorry, there was a silly error in my first code. It worked only if
the first symbol in the list was literally the letter a.  The right
version is, of course:

GF[list1_, list2_] := Module[{f, g}, Evaluate[Map[f, list1]] = list2; g[
x_] := If[--f[x] < 0, 0, x]; FoldList[g /@ Plus[#1, #2] &, g[First[
list1]], Rest[list1]]]

This time:

list1 = {a, b, c, d, e};
list2 = {3, 2, 5, 1, 6};

GF[list1,list2]

{a,a+b,a+b+c,c+d,c+e}

Andrzej Kozlowski

On 30 Aug 2006, at 23:35, Andrzej Kozlowski wrote:

>
> On 29 Aug 2006, at 08:25, Arkadiusz Majka wrote:
>
>> DearAll,
>>
>>
>> I have two list
>>
>> list1={a,b,c,d,e}
>> list2={3,2,5,1,6}
>>
>> and I want to apply a modified version of FoldList to list1 in the
>> following way: list2 indicates that element a appears only 3 times
>> (if
>> space enough) beginning from the beginning of the list , element b
>> appears 2 times, c - 5 times , etc.
>>
>> So the output should be
>>
>> GeneralizedFoldList[list1,list2]={a,a+b,a+b+c,c+d,c+e}
>>
>> Thanks for any hints,
>>
>> arek
>>
>
>
> Here is a solution which seems to me different from any of the ones
> I have seen posted so far:
>
> GF[list1_, list2_] := Module[{f, g}, Evaluate[Map[f, list1]] =
> list2; g[x_] := If[--f[x] < 0, 0, x];
> FoldList[g /@ Plus[#1, #2] &, g[a],Rest[list1]]]
>
>
> GF[list1,list2]
>
>
> {a,a+b,a+b+c,c+d,c+e}

```

• Prev by Date: Re: Can't Remove[] variable "K"? (Really strange behavior . . . )
• Next by Date: generalized foldlist problem - part 2
• Previous by thread: Re: generalized foldlist problem
• Next by thread: Re: generalized foldlist problem