提取一个表达式中所有子表达式头部的方法有哪些？

Question

比如：

In[270]:= Head /@ Level[a + b^2 + c^3 + d, {0, -2}] // DeleteDuplicates

Out[270]= {Power, Plus}

除了这种方法，还有哪些？

Answer 1

Cases[a + b^2 + c^3 + d, h_[__] :> h, {0, Infinity}] // Union

 

Comments

不过得去除原子表达式。

---

……原子的头部是不会被这个方法匹配到的。

---

稍微换一个就会了！
In[36]:= Cases[a + b^2 + c^3 + Sqrt[d],
  h_[__] :> h, {0, Infinity}] // Union

Out[36]= {Plus, Power, Rational}

---

原来Rational会被匹配到啊……学习了。