如何去掉24点答案中的括号呢？

mathematica

https://bbs.emath.ac.cn/forum.ph ... 392&fromuid=865

1. DeleteDuplicatesBy[Groupings[Permutations[{a,b,c,d},{4}],{Plus->{2,Orderless},Subtract->2,Times->{2,Orderless},Divide->2},HoldForm],Factor@*ReleaseHold]

复制代码

这个代码产生的结果有如下情况
((a+b)+c)+d,((a-b)+c)+d
但是这里面的括号都是多余的，
如何把括号删除了呢？
有的括号多余，有的括号不多余，所以不知道怎么办

灵树

括号都是多余的，所有的括号都可以去掉。

mathe

参考 https://bbs.emath.ac.cn/forum.ph ... 5243&fromuid=20

zeroieme

根据本站某个聪明人的建议：人肉修改万岁!

dlpg070

新手练习：试试能否满足楼主的要求

1. DeleteDuplicatesBy[Groupings[Permutations[{a,b,c,d},{4}],{Plus->{2,Orderless},Subtract->2,Times->{2,Orderless},Divide->2},HoldForm],Factor@*ReleaseHold] // ReleaseHold

复制代码

mathematica

dlpg070 发表于 2019-1-19 09:34
新手练习：试试能否满足楼主的要求

我感觉你就是个天才！
c/(-(a/b) + d)，四个运算符了
这个不满足要求
(a d)/(b c)，多了一对括号
这个不满足要求。
看来这个问题可能真的要人肉的办法修改了

mathematica

dlpg070 发表于 2019-1-19 09:34
新手练习：试试能否满足楼主的要求

穷举法估计也行，找几个人，一个人五秒钟干一个
1170*5/3600=1.625，两个小时就够了，
不过这么干下去人应该很疲劳

dlpg070

我以楼主的代码作为学习的例题。
看来不用人肉那么麻烦了。
我的输出完全满足你的要求。
你指出的不满足要求的例子，都不是我的输出
是你把输出转换为文本造成的
比如 (a d)/(b c) :
\( (a d)/(b c)  = \frac{a d}{b c} \)

另外 c/(-(a/b) + d) ：我的输出中没有发现
去掉多余空格后 查到 c/(-(a/b) + d) = \(  \frac{c}{d-\frac{b}{a}} \)

看看我的输出中有不满要求的吗？如有，请指出
再讨论

我的输出节选：（共 1170 项）
开始部分：

\(
\left\{a+b+c+d,a-b+c+d,a+b-c+d,a+b+c-d,-a+b+c+d,a-b-c+d,a-b+c-d,a+b-c-d,-a+b-c+d,-a+b+c-d,-a-b+c+d,a-b-c-d,-a+b-c-d,-a-b+c-d,-a-b-c+d,a b+c+d,a c+b+d,a d+b+c,a+b c+d,a+b d+c,a+b+c d,c (a+b)+d,d (a+b)+c,b (a+c)+d,d (a+c)+b,b (a+d)+c,c (a+d)+b,a (b+c)+d,a+d (b+c),a (b+d)+c,a+c (b+d),a (c+d)+b,a+b (c+d),d (a+b+c),c (a+b+d),b (a+c+d),a (b+c+d),(a+b) (c+d),(a+c) (b+d),(a+d) (b+c),\frac{a}{b}+c+d,\frac{a}{c}+b+d,\frac{a}{d}+b+c,\frac{b}{a}+c+d,a+\frac{b}{c}+d,a+\frac{b}{d}+c,\frac{c}{a}+b+d,a+\frac{c}{b}+d,a+b+\frac{c}{d},\right.
\)
最后部分：

\(            
\left.\frac{d-\frac{b}{c}}{a},\frac{d-\frac{c}{a}}{b},\frac{d-\frac{c}{b}}{a},\frac{a}{b-\frac{c}{d}},\frac{a}{b-\frac{d}{c}},\frac{a}{c-\frac{b}{d}},\frac{a}{c-\frac{d}{b}},\frac{a}{d-\frac{b}{c}},\frac{a}{d-\frac{c}{b}},\frac{b}{a-\frac{c}{d}},\frac{b}{a-\frac{d}{c}},\frac{b}{c-\frac{a}{d}},\frac{b}{c-\frac{d}{a}},\frac{b}{d-\frac{a}{c}},\frac{b}{d-\frac{c}{a}},\frac{c}{a-\frac{b}{d}},\frac{c}{a-\frac{d}{b}},\frac{c}{b-\frac{a}{d}},\frac{c}{b-\frac{d}{a}},\frac{c}{d-\frac{a}{b}},\frac{c}{d-\frac{b}{a}},\frac{d}{a-\frac{b}{c}},\frac{d}{a-\frac{c}{b}},\frac{d}{b-\frac{a}{c}},\frac{d}{b-\frac{c}{a}},\frac{d}{c-\frac{a}{b}},\frac{d}{c-\frac{b}{a}},a b c d,\frac{a c d}{b},\frac{a b d}{c},\frac{a b c}{d},\frac{b c d}{a},\frac{a d}{b c},\frac{a c}{b d},\frac{a b}{c d},\frac{b d}{a c},\frac{b c}{a d},\frac{c d}{a b},\frac{a}{b c d},\frac{b}{a c d},\frac{c}{a b d},\frac{d}{a b c}\right\}\)