wolfram-mathematica - 拉出减号以获得统一列表？

Question

给出以下列表:

{a + b, c + d + e, - a + b, a - b, - c - d - e}

我想得到的结果是:

{a + b, a - b, c + d + e}

澄清一下:我想以这样一种方式转换第一个列表，即将每个元素中的第一个术语标准化为加号，并丢弃可以通过与 -1相乘从最终结果中获得的任何元素。

我已经尝试过 Collect[]和 FactorTerms[]以及其他一些看起来很像我可以做我需要的功能的函数，但是它们从不碰减号...。

任何帮助是极大的赞赏。

Answer 1

使用FactoredTermsList:

In[5]:= FactorTermsList /@ {a + b, c + d + e, -a + b, 
  a - b, -c - d - e}

Out[5]= {{1, a + b}, {1, c + d + e}, {-1, a - b}, {1, a - b}, {-1, 
  c + d + e}}

In[6]:= DeleteDuplicates[%[[All, 2]]]

Out[6]= {a + b, c + d + e, a - b}