list1=Permutations[{1,2,3}]
Out[3]= {{1,2,3},{1,3,2},{2,1,3},{2,3,1},{3,1,2},{3,2,1}}
In[8]:= Cases[list1,{
#1,#
2,
#3}/;#
1+
#2-#
3==0@@list1]
第三行企图实现把满足前两个数字相加等于第三个数字的组选取出来，但是我搞不出来怎么选
有劳哪位大佬指点指点，谢谢

Select[x,(
#[[1]]+#
[[2]]==#[[3]])&]

Cases[list1,{x_,y_,z_}/;x+y==z]

In[12]:= list1=Permutations[{1,2,3}]
Out[12]= {{1,2,3},{1,3,2},{2,1,3},{2,3,1},{3,1,2},{3,2,1}}
In[13]:= Cases[list1,{x_,y_,z_}/;x+y-z==0]
Out[13]= {{1,2,3},{2,1,3}}
list2=Permutations[{1,2,3}];
In[20]:= Select[list2,(
#[[1]]+#
[[2]]==#[[3]])&]
Out[20]= {{1,2,3},{2,1,3}}
试验了下，两位说的都可以做到，。非常感谢