【问题标题】：How to write correct wolfram expression?如何写出正确的 wolfram 表达式？
【发布时间】：2015-10-11 14:02:55
【问题描述】：
如何在 WolframAlpha 上写出类似这样的表达式以获得正确答案？
Solve[Sort[IntegerDigits[2*x]] == Sort[IntegerDigits[3*x]], x]
第一个可能的 x 值等于 1782。
2*1782 = 3564
3*1782 = 5364
排序后相同。
【问题讨论】：
标签：
wolfram-mathematica
wolframalpha
wolfram-language
【解决方案1】：
有时可能知道足够多的 Mathematica 语言符号，这可以用来诱使 WolframAlpha 给出答案。这个
Select[Table[{x, Sort[IntegerDigits[2*x]],Sort[IntegerDigits[3*x]]}, {x,6000}], #[[2]]==#[[3]]&]
或者这个
Select[Table[x,{x,6000}],Sort[IntegerDigits[2*#]]==Sort[IntegerDigits[3*#]]&]
作品