代码如下：
Select[IntegerPartitions[69,3,{21,22,23,24,25}], DuplicateFreeQ]
m = {1, 2, 3, 4, 5};
n = {1, 2, 3, 4, 5};
Union[ Flatten[
Table[ m[[i]] - n[[j]], {i, Length[m]}, {j, Length[n]}]]]
结果为
{-4, -3, -2, -1, 0, 1, 2, 3, 4}
不知道你要的是不是这个?
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024