You can do it:
Function[Null, # = f /@ #, HoldAll][{a, b, c}]
For instance,
In[1]:=
{a,b,c}={1,2,3};
Function[Null, #=f/@#,HoldAll][{a,b,c}];
{a,b,c}
Out[3]= {f[1],f[2],f[3]}
f, set. foreach , Listable:
ClearAll[set];
SetAttributes[set, {HoldFirst, Listable}]
set[var_, f_] := var = f[var];
:
In[10]:= {a,b,c}={1,2,3};
set[{a,b,c},f1];
{a,b,c}
Out[12]= {f1[1],f1[2],f1[3]}
, f Listable, , M8 Compile Listabe , , . , set ( , , f Listable) Listable set.