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

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}