公告:1)网站程序升级:Q2A升级到1.8.6,Wordpress升级到5.7.2
2)修复了头像加载慢与提交问题反应慢等问题
2021-06-16

欢迎来到 Mathematica 问答社区

提问时请贴上文本代码

语法高亮:在编辑器中点击

被禁止的话题:广告破解

请阅读:《提问的智慧》

备用域名:mma.ooo

支持LaTex数学公式
行内公式标识符:\$ 或“$\backslash ($”+“$\backslash )$”,
行间公式标识符:\$\$ 或 “$\backslash [$”+“$\backslash ]$”

社区建议QQ群:365716997

分类

+2 投票
485 浏览

比如:

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

Out[270]= {Power, Plus}

除了这种方法,还有哪些?

分类:函数 | 用户: niturpe (251 分)
标签修改 用户:niturpe

1个回答

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

 

用户: xzczd (2.1k 分)
采纳于 用户:niturpe
不过得去除原子表达式。
……原子的头部是不会被这个方法匹配到的。
稍微换一个就会了!
In[36]:= Cases[a + b^2 + c^3 + Sqrt[d],
  h_[__] :> h, {0, Infinity}] // Union

Out[36]= {Plus, Power, Rational}
原来Rational会被匹配到啊……学习了。
...