如何用mathematica枚举出10选2的排列组合？
0-9共计10个数字，任意取两个填入加法和减法的方框中，共计有几个排列？这个很容易算10*9=90个
但是如何用mathematica罗列出来这些组合？我想把排列一个一个列出来有没有什么办法？用到mathematica那个命令？

Solve[x~#~y==z&&0<={x,y,z}<=9,{x,y,z},Integers]/.{x->a_,y->b_,z->c_}->Defer[a~#~b=c]&/@{Plus,Subtract}

Cases[DeleteCases[
Flatten[Cases[Permutations[Range[0, 9], {2}],
x_ :> {{x, "+", Plus @@ x}, {x, "-", Subtract @@ x}}], 1],
x_ /; Not@MemberQ[Range[0, 9], x[[3]]]],
x_ :> ToString[x[[1, 1]]] <> x[[2]] <> ToString[x[[1, 2]]] <> "=" <>
ToString[x[[3]]]] // TableForm