解题发挥 Euler Project 10 + 35 + 37 ---- 论数据库搜索的效率

FreddyMusic

解题发挥 Euler Project 10 + 35 + 37  ---- 论数据库搜索的效率

Euler Project 10 + 35 + 37 ，为同样的问题！都是有关素数。

我整理了一下思路，同各位会员分享！有错误请指正或是更好的方法请补充。

Euler Project 10 ，十分简单，是基础。

Euler Project 35 + 37  类似问题，思路相同。

仅以 35  为例：

The number, 197, is called a circular prime because all rotations of the digits : 197, 971, and 719, are themselves prime.
There are thirteen such primes below 100 : 2, 3, 5, 7, 11, 13, 17, 31, 37, 71, 73, 79, and 97.
How many circular primes are there below one million?

详情见附件！

[ 本帖最后由 FreddyMusic 于 2008-12-18 15:41 编辑 ]

jimogsh

1. In[17]:= lis = {}; For[i = 9, Length[lis] < 11, i += 2,
   
2. If[Union@PrimeQ[
   
3.       NestList[FromDigits[Rest[IntegerDigits[#]]] &, i,
   
4.        IntegerLength[i] - 1]] == {True} &&
   
5.    Union@PrimeQ[
   
6.       NestList[FromDigits[Delete[IntegerDigits[#], -1]] &, i,
   
7.        IntegerLength[i] - 1]] == {True}, lis = Append[lis, i]]]; lis
   
8. 
   
9. Out[17]= {23, 37, 53, 73, 313, 317, 373, 797, 3137, 3797, 739397}
   
10. 
    
11. In[18]:= Total[%]
    
12. 
    
13. Out[18]= 748317

复制代码

这是37题的解法，不过怎么觉得这个代码这么长啊？怎么写短一些，那个纯函数如何嵌套，或者说如何分层次？