Re[2]: Kummulative Liste

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

Hallo Sven,

hier ist noch eine (gekünstelte) Methode mit pattern matching

In[7]:= Remove[stollH];
stollH[(o_List)?VectorQ] :=
If[l = Length[o]; l < 2, o, ReplaceRepeated[#, x_[y_] -> x + y]& /@ 
ComposeList[Rest[o], First[o]]]

In[13]:= stollH[{a + b, c + d, e + f, 3, 4, 5 - a - b - c - d - e - f}]
Out[13]= {a+b,a+b+c+d,a+b+c+d+e+f,3+a+b+c+d+e+f,7+a+b+c+d+e+f,12}

Dass dies funktioniert, ist ganz instruktiv, denn schliesslich ist

In[16]:= ComposeList[{2, 3, 4}, 1]
Out[16]= {1,2[1],3[2[1]],4[3[2[1]]]}

und 2[1] ist nicht gerade etwas, wovon Mathematiker träumen.
Das Evalutationsschema von Mathematica erlaubt es:

In[17]:= stollH[{1, 2, 3, 4}]

Out[17]= {1,3,6,10}

Mit den besten Grüssen
Udo.