(调试) In[]:=
f[x__,y__,z___]:=x+y-z;
(调试) In[]:=
f[100,1,2]
(调试) Out[]=
99
(调试) In[]:=
f[100,1,2,3]
(调试) Out[]=
95
(调试) In[]:=
Clear[f,x,y,z]
(调试) In[]:=
ReplaceList[f[100,1,2,3],f[x__,y__,z___]->x+y-z]
(调试) Out[]=
{95,100,105,100,105,105}
(调试) In[]:=
ReplaceList[f[100,1,2,3],f[x__,y__,z___]->f[x]+f[y]-f[z]]//TableForm
(调试) Out[]//TableForm=
f[1]+f[100]-f[2,3]
-f[3]+f[100]+f[1,2]
-f[]+f[100]+f[1,2,3]
f[2]-f[3]+f[100,1]
-f[]+f[2,3]+f[100,1]
-f[]+f[3]+f[100,1,2]
(调试) In[]:=
ReplaceList[f[100,1,2,3],f[x__,y__,z___]->x+y+z]
(调试) Out[]=
{106,106,106,106,106,106}
(调试) In[]:=
ReplaceList[f[100,1,2,3],f[x__,y__,z___]->f[x]+f[y]+f[z]]//TableForm
(调试) Out[]//TableForm=
f[1]+f[100]+f[2,3]
f[3]+f[100]+f[1,2]
f[]+f[100]+f[1,2,3]
f[2]+f[3]+f[100,1]
f[]+f[2,3]+f[100,1]
f[]+f[3]+f[100,1,2]