Mathematica 如何求变量系数之和?

Mathematica 如何求变量系数之和?
如何求变量系数之和?
例如：
输入：
s1=3a+4b^2+5c+6d^5
并假设所有字母都是变量,则变量系数之和为：
输出：
s2=3+4+5+6=18

这个还是要看具体的式子结构.就你这两个来说,现在能想到两个方法：s1 = 3 a + 4 b^2 + 5 c + 6 d^5;
Cases[s1, a_ b_ -> a]
Total@%
CoefficientList[s1, [email protected]]
[email protected]@%