只计算表达式中的特定头类型?

这个是从 Ted Ersek's Mathematica Tricks under "Clever Little Programs" .
多亏了 @汤姆 对于指针。

EvaluatePattern[expr_,pattn_]:=expr/.Pattern[p, pattn]:>With[{eval=p},eval/;True]

In[368]:= test = HoldForm[7 (1 + 2 - 2^2) (8 + 8)];
          EvaluatePattern[test, _Plus] //InputForm

Out[369]= HoldForm[7*-1*16]  

编辑

这似乎也适用于Hold[],但我从未进行过深入的测试。