Is there a more concise way of achieving the following result (possibly without d |->
)?
(d |-> (d@Exponent[#, Variables[expr]] &)) /@ {f1, f2}
{f1[Exponent[#1, Variables[expr]]] &, f2[Exponent[#1, Variables[expr]]] &}
I tried to use Through
but this gives me incorrect result - the &
is in the wrong place in the output.
Through[{f1, f2}[Exponent[#, Variables[expr]] &]]
{f1[Exponent[#1, Variables[expr]] &], f2[Exponent[#1, Variables[expr]] &]}