Re: Map, Apply und/oder Slot?

[Rolf Mertig <rolf@XXXXXXX.com>]

Hi,
hier zwei Möglichkeiten:

schieb1[z_Plus, gi_Alternatives] :=
  z /. (g_ /; MatchQ[g, gi])[x_] :> f[x]*g[x];
schieb2[z_Plus] := z /. (g_)[x_Symbol] :> f[x]*g[x]

schieb1[g1[a] + g2[b] + g3[c], g1 | g2 | g3]

schieb2[g1[a] + g2[b] + g3[c]]

Gruß,

Rolf

Christian M. Sperber wrote:

> OK. Ich krieg es nicht hin!
> Ich habe eine Summe aus g1[a]+g2[b]+g3[c]+..... nun moechte ich 
> jeweils eine Funktion f einschieben, sodass sich g1[a] f[a]+g2[b] 
> f[b]+ g3[c] f[c]+... ergibt.
> Vielen Dank