找回密码
 欢迎注册
查看: 8712|回复: 9

[提问] 如何去掉24点答案中的括号呢?

[复制链接]
发表于 2019-1-16 13:45:12 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?欢迎注册

×
本帖最后由 mathematica 于 2019-1-16 13:58 编辑

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
但是这里面的括号都是多余的,
如何把括号删除了呢?
有的括号多余,有的括号不多余,所以不知道怎么办
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-1-16 22:13:32 | 显示全部楼层
括号都是多余的,所有的括号都可以去掉。
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-1-17 09:22:31 | 显示全部楼层
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-1-17 18:52:41 | 显示全部楼层
根据本站某个聪明人的建议:人肉修改万岁!
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-1-19 09:34:32 | 显示全部楼层
本帖最后由 dlpg070 于 2019-1-19 09:37 编辑

新手练习:试试能否满足楼主的要求
  1. DeleteDuplicatesBy[Groupings[Permutations[{a,b,c,d},{4}],{Plus->{2,Orderless},Subtract->2,Times->{2,Orderless},Divide->2},HoldForm],Factor@*ReleaseHold] // ReleaseHold
复制代码

点评

有可能人肉的办法才是最好的办法!  发表于 2019-1-21 13:47
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-1-21 13:39:23 | 显示全部楼层
本帖最后由 mathematica 于 2019-1-21 13:41 编辑
dlpg070 发表于 2019-1-19 09:34
新手练习:试试能否满足楼主的要求


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

毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
 楼主| 发表于 2019-1-21 13:44:41 | 显示全部楼层
dlpg070 发表于 2019-1-19 09:34
新手练习:试试能否满足楼主的要求

穷举法估计也行,找几个人,一个人五秒钟干一个
1170*5/3600=1.625,两个小时就够了,
不过这么干下去人应该很疲劳
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
发表于 2019-1-23 11:14:45 | 显示全部楼层
本帖最后由 dlpg070 于 2019-1-23 16:20 编辑

我以楼主的代码作为学习的例题。
看来不用人肉那么麻烦了。
我的输出完全满足你的要求。
你指出的不满足要求的例子,都不是我的输出
是你把输出转换为文本造成的
比如 (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\}\)

点评

你再仔细看看你的输出结果  发表于 2019-1-23 11:26
毋因群疑而阻独见  毋任己意而废人言
毋私小惠而伤大体  毋借公论以快私情
您需要登录后才可以回帖 登录 | 欢迎注册

本版积分规则

小黑屋|手机版|数学研发网 ( 苏ICP备07505100号 )

GMT+8, 2024-3-19 22:05 , Processed in 0.043928 second(s), 17 queries .

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表