猜猜我的手机号码？

倪举鹏

感觉这个方法搜索8^9个数字时间还不是很长，以前搜索8后问题就一分钟搜完，解有92个，其实包含了翻转旋转，只有23组的。

wayne

gxqcn 发表于 2009-8-25 16:56
下面的代码，用了 STL，还调用了 HugeCalc 以快速生成素数表及统计耗时：请将上述代码复制粘贴进 [..]\Copy ...

Mathematica code,   dirty yet quick ,  42 of size :

1. Select[IntegerLength[FactorInteger[#][[1, 1]]] == 5&][
   
2. Select[FromDigits[Flatten[{{1, 8, 9}, #, {4, 3}}]] & /@
   
3.    Permutations[{1, 2, 5, 6, 7, 0}],
   
4.   Length[FactorInteger[#]] == 2 &]]

复制代码

18912576043
18912076543
18916705243
18917062543
18917065243
18910625743
18910725643
18910765243
18921567043
18921675043
18925160743
18925671043
18926501743
18927156043
18927160543
18927561043
18927615043
18927610543
18927016543
18920516743
18951207643
18951672043
18952607143
18957201643
18957062143
18950126743
18950726143
18961270543
18962107543
18962715043
18965172043
18965210743
18965710243
18967102543
18967512043
18960217543
18976105243
18970162543
18901652743
18902756143
18907561243
18907652143

cn8888

正确答案是?