mathematica解决填符号使等式成立问题

你这题目其实有点歧义,要知道,在小学高年级我们就已知道,乘号在很多场合是可以省略的,那么你这里允不允许呢?我就当它允许了,那么,不算很难：
Select[Tuples[{"+", "-", "*", "/", "(", ")"}, 6], ToExpression@StringJoin["(34", #[[1]], "5", #[[2]], "6", #[[3]], "8", #[[4]], "9", #[[5]], "1)", #[[6]], "2==2008"] &]
运行的过程中会有一些警告信息,因为会产生许多不合语法的表达式,不过没关系,反正最后得出来两组
{{"*", "*", "-", "-", "+", "*"}, {"(", ")", "-", "-", "+", "*"}}
即
{"(34*5*6-8-9+1)*2", "(34(5)6-8-9+1)*2"}
看样子我多担心了,放宽了也就两组解,额外产生的也就一组,就是第二组解.
————————
仔细一看,发现我好像并没把问题给解决……你这是允许一个位子填复数个符号啊,那我暂时没灵感,容我再想想……
再问： 乘号不能省略 还是请这位大哥帮帮忙想一下
再答： 既然你允许一个位置填复数个符号，那乘号省不省其实都一样了……已经有点灵感了，不过到睡觉时间了，明天再说……