- 564 名前：１３２人目の素数さん mailto:sage [2025/01/13(月) 06:51:55.39 ID:oWSkSukX.net]
- gr=Tuples[{"+","-","*","/",""},8];
join[x_] := (
{x1,x2,x3,x4,x5,x6,x7,x8}=x;
"1"<>x1<>"2"<>x2<>"3"<>x3<>"4"<>x4<>"5"<>x5<>"6"<>x6<>"7"<>x7<>"8"<>x8<>"9"
)
op[x_] := ToExpression@join@x
re = op /@ gr;
solve[n_] := join /@ Select[gr,op@#==n&]
