Clear["Global`*"];(*Clear all variables*)
data=Permutations,{6}];(*形成所有的排列*)
fun:=Module[{
a=list[],
b=list[],
c=list[],
d=list[],
e=list[],
f=list[]
},
(*形成三个数*)
ABCD=a*1000+b*100+c*10+d;
ABCE=a*1000+b*100+c*10+e;
AFCCDDB=a*10^6+f*10^5+c*(10^4+10^3)+d*(10^2+10^1)+b;
(*如果积满足要求,那么就是1,否则就就是0*)
If;
out
]
(*大海捞针,选出符合条件的数*)
Select==1&]
六个数依次是
{{1, 2, 3, 8, 9, 5}}
1238*1239=1533882
问题完美解决!
穷举法万岁! mathematica 发表于 2018-3-29 14:33
六个数依次是
{{1, 2, 3, 8, 9, 5}}
1238*1239=1533882
(*一道算式谜*)
Clear["Global`*"];(*Clear all variables*)
data=Permutations,{6}];(*形成所有的排列*)
fun:=Module[{
a=list[],
b=list[],
c=list[],
d=list[],
e=list[],
f=list[]
},
(*形成三个数*)
ABCD=a*1000+b*100+c*10+d;
ABCE=a*1000+b*100+c*10+e;
AFCCDDB=a*10^6+f*10^5+c*(10^4+10^3)+d*(10^2+10^1)+b;
(*如果积满足要求,那么就是1,否则就就是0*)
If,out=0];
out
]
(*大海捞针,选出符合条件的数*)
Select==1&]
稍微改进一些的代码
{1238,1239,1533882}
{{1, 2, 3, 8, 9, 5}}
紫罗兰算式（数学代数方面的）
https://bbs.emath.ac.cn/thread-2606-1-1.html
页:
1
[2]