1~9填入宫格，使等式成立
Qu.1\(\Huge
\square+\dfrac{\square}{\square}+\dfrac{\square\square\square}{\square\square\square}=10
\)
Qu.2
\(\Huge
\dfrac{\square}{\square}+\dfrac{\square\square}{\square}+\dfrac{\square\square}{\square\square}=10
\) 1.
{3,5,1,9,7,2,4,8,6}
{4,9,3,5,2,8,1,7,6}
{5,3,1,9,7,2,4,8,6}
{5,4,3,7,2,6,1,9,8}
{5,4,9,7,3,8,1,6,2}
{5,8,6,4,7,3,1,2,9}
{6,4,2,3,5,8,1,7,9}
{6,4,2,7,1,8,3,5,9}
{6,7,3,4,8,5,2,9,1}
{6,8,3,9,5,2,7,1,4}
{6,9,8,4,3,7,1,5,2}
{7,1,4,9,6,8,3,5,2}
{7,3,2,8,1,9,5,4,6}
{7,3,2,9,8,1,6,5,4}
{7,5,3,2,6,4,1,9,8}
{7,5,3,9,1,2,6,8,4}
{7,9,6,3,8,1,2,5,4}
{7,9,6,8,1,3,5,4,2}
{8,1,3,4,6,5,2,7,9}
{8,6,9,7,1,2,5,3,4}
{8,7,6,1,9,5,2,3,4}
{9,1,3,4,5,2,6,7,8}
{9,1,3,5,2,4,7,8,6}
{9,2,4,1,7,8,3,5,6}
{9,2,4,3,5,8,7,1,6}
{9,3,4,1,5,7,6,2,8}
{9,4,8,1,7,6,3,5,2}
{9,4,8,3,5,6,7,1,2}
{9,6,8,1,4,3,5,7,2}
2.
{1,2,4,5,6,7,8,3,9}
{1,2,5,4,6,3,9,7,8}
{1,2,6,4,7,3,5,9,8}
{1,3,4,9,6,7,8,5,2}
{1,4,5,9,8,7,6,3,2}
{1,6,7,5,9,4,8,3,2}
{1,8,2,7,3,4,9,5,6}
{1,8,3,5,6,9,7,2,4}
{2,1,4,5,6,3,9,7,8}
{2,1,5,4,9,7,6,3,8}
{2,3,5,7,9,4,8,1,6}
{2,4,7,1,9,5,8,3,6}
{2,7,8,1,9,4,5,6,3}
{2,9,4,7,6,3,5,1,8}
{3,6,7,2,9,8,1,5,4}
{3,6,8,1,9,2,7,5,4}
{3,9,1,7,2,5,6,4,8}
{3,9,2,6,4,5,7,1,8}
{3,9,4,5,7,6,8,2,1}
{3,9,5,1,6,8,4,7,2}
{3,9,5,4,6,1,8,2,7}
{3,9,5,7,8,6,1,2,4}
{4,3,5,1,9,7,8,2,6}
{5,1,2,7,9,6,8,3,4}
{5,1,2,7,9,8,6,4,3}
{5,1,3,4,8,7,2,9,6}
{5,2,3,4,9,6,7,1,8}
{5,2,4,9,7,1,8,3,6}
{5,3,7,2,9,1,6,4,8}
{5,6,2,4,3,9,1,7,8}
{5,6,3,2,4,9,1,7,8}
{5,7,6,3,9,4,8,2,1}
{5,8,1,6,3,9,7,2,4}
{5,8,3,7,4,1,2,9,6}
{5,9,3,2,6,7,4,1,8}
{6,1,2,3,9,7,8,5,4}
{6,3,4,5,9,8,1,2,7}
{6,9,2,7,3,1,8,5,4}
{7,2,1,6,4,9,5,3,8}
{7,2,3,6,9,4,5,1,8}
{7,2,5,4,9,1,8,3,6}
{7,4,1,3,2,9,8,5,6}
{7,8,3,1,6,9,5,2,4}
{7,8,6,3,9,5,1,2,4}
{7,9,2,6,3,4,5,8,1}
{8,2,3,4,6,1,9,5,7}
{8,3,4,2,6,1,9,5,7}
{8,4,2,7,9,6,5,1,3}
{8,4,5,1,9,6,3,2,7}
{8,6,4,9,7,3,5,2,1}
{8,6,7,2,9,3,4,5,1}
{9,2,1,4,3,6,5,7,8}
{9,2,1,6,4,5,7,3,8}
{9,3,2,7,6,4,5,1,8}
{9,3,4,5,7,1,6,2,8}
{9,6,1,4,2,5,7,3,8}
{9,6,5,1,7,3,4,2,8}
{9,6,5,2,8,3,4,1,7} 2# 楼计算结果有的不对。例如 {3,5,1,9,7,2,4,8,6} 的结果是 3+5/1+972/486=3+5+27/13= 131/13， 不等于 10。
请 2# 把程序贴出来看看。 TSC999 发表于 2018-7-14 20:15
2# 楼计算结果有的不对。例如 {3,5,1,9,7,2,4,8,6} 的结果是 3+5/1+972/486=3+5+27/13= 131/13， 不等于 10 ...
972/486=2 本帖最后由 TSC999 于 2018-7-14 21:53 编辑
aa = Permutations[{1, 2, 3, 4, 5, 6, 7, 8, 9}] ;
For[i = 1, i <= 362880, i++,
a = aa[];
If] + a[]/a[] + (100 a[] + 10 a[] + a[])/(
100 a[] + 10 a[] + a[]) == 10, Print];
]
运行结果是：
{3,5,1,9,7,2,4,8,6}
{4,9,3,5,2,8,1,7,6}
{5,3,1,9,7,2,4,8,6}
{5,4,3,7,2,6,1,9,8}
{5,4,9,7,3,8,1,6,2}
{5,8,6,4,7,3,1,2,9}
{6,4,2,3,5,8,1,7,9}
{6,4,2,7,1,8,3,5,9}
{6,7,3,4,8,5,2,9,1}
{6,8,3,9,5,2,7,1,4}
{6,9,8,4,3,7,1,5,2}
{7,1,4,9,6,8,3,5,2}
{7,3,2,8,1,9,5,4,6}
{7,3,2,9,8,1,6,5,4}
{7,5,3,2,6,4,1,9,8}
{7,5,3,9,1,2,6,8,4}
{7,9,6,3,8,1,2,5,4}
{7,9,6,8,1,3,5,4,2}
{8,1,3,4,6,5,2,7,9}
{8,6,9,7,1,2,5,3,4}
{8,7,6,1,9,5,2,3,4}
{9,1,3,4,5,2,6,7,8}
{9,1,3,5,2,4,7,8,6}
{9,2,4,1,7,8,3,5,6}
{9,2,4,3,5,8,7,1,6}
{9,3,4,1,5,7,6,2,8}
{9,4,8,1,7,6,3,5,2}
{9,4,8,3,5,6,7,1,2}
{9,6,8,1,4,3,5,7,2} 我这个程序大概不是很好，如何优化？ 本帖最后由 zeroieme 于 2018-7-14 23:30 编辑
9//Range//Permutations//ParallelCombine]+#[]/#[]+(100#[]+10#[]+#[])/(100#[]+10#[]+#[])==10&]&,#]&
9//Range//Permutations//ParallelCombine]/#[]+(10#[]+#[])/#[]+(10#[]+#[])/(10#[]+#[])==10&]&,#]&
一点想法：假设每个商都是正整数，那么5一定不能出现在除数的末位上。 TSC999 发表于 2018-7-14 21:52
运行结果是：
{3,5,1,9,7,2,4,8,6}
Permutations]//Pick[#,Table]+p[]/p[]+(100 p[]+10 p[]+p[])/(100 p[]+10 p[]+p[])-10//N//Unitize,{p,#}],0]&//AbsoluteTiming mark一下类似题目
[分享] 简单填数--极限玩法
2010-1-5 08:55:22
https://bbs.emath.ac.cn/forum.php?mod=viewthread&tid=2049
页:
[1]