上班路上想到的有意思的问题

chyanog

Mathematica code：

1. 
   
2. f[n_] := Module[{tmp},
   
3.    tmp = Select[
   
4.      Range[10^(n - 1), 10^n - 1], ! MemberQ[IntegerDigits[#], 0] &];
   
5.    Select[tmp,
   
6.     And @@ (Table[#[[i]] == #[[i + 1]] + #[[i + 2]], {i, n - 2}] &[
   
7.         IntegerDigits[#]]) &]];
   
8. f /@ Range[3, 6] // Timing
   

复制代码

需要说明的是，这段代码本来不够精简，在PKU大宝同学的帮助下改写成这样，当然这种方法很暴力，效率较低。
偶还发现
3-6位这种数的个数也比较有趣，都是完全平方数：
{36, 16, 4, 1}

〇〇

题目出错，应该是百位，不是千位

mjs1wh

用vbs就行
For j=2 TO 9
For i=1 TO j-1
b=100*j+i*10+j-i
c=i+j
d=c+j
e=d+c
f=e+d
a=a&chr(32)&b
if c<10 then a=a&chr(32)&c*1000+b
if d<10 then a=a&chr(32)&d*10000+c*1000+b
if e<10 then a=a&chr(32)&e*100000+d*10000+c*1000+b
if f<10 then a=a&chr(32)&f*1000000+e*100000+d*10000+c*1000+b
Next
Next
MsgBox a

chyanog

"十一"在家十天，在家干农活挺累的,今天刚到校,家里没网.发现9楼的Java代码有误（尽管是小错）。用C又重写了，第一个还是“构造型”的，另一个是“暴搜型”的：

1. 
   
2. #include <stdio.h>
   
3. int main()
   
4. {
   
5.     int count=0;
   
6.     for (int i=1;i<9;i++)
   
7.     {
   
8.         for (int j=1;j<9;j++)
   
9.         {
   
10.             int a,a1=i,a2=j,t=10*a2+a1;
    
11.             while (a1+a2<10)
    
12.             {
    
13.                 a=a1+a2;
    
14.                 a1=a2;
    
15.                 a2=a;
    
16. 
    
17.                 int k=1;
    
18.                 for (int u=t;u;u/=10)
    
19.                 {
    
20.                     k*=10;
    
21.                 }
    
22.                 t+=k*a;
    
23.                 printf("%d",t);
    
24.                 printf(++count%10? "\t":"\n");
    
25.             }
    
26.         }
    
27.     }
    
28.     printf("\n\ncount : %d\n",count);
    
29.     return 0;
    
30. }
    

复制代码

---------------------------------------------------------------

1. 
   
2. #include <stdio.h>
   
3. #include <math.h>
   
4. #define MAXDIG 6
   
5. int main(int argc, char *argv[])
   
6. {
   
7.         int count=0;
   
8.     for (int dig=3;dig<=MAXDIG;dig++)
   
9.     {
   
10.         for (int n=(int)pow(10.0,dig-1);n<(int)pow(10.0,dig);n++)
    
11.         {
    
12.             int a[10],i=0,m;
    
13.             for (int t=n;t!=0;t/=10)
    
14.             {
    
15.                 m=t%10;
    
16.                 if (m==0) break; //continue;
    
17.                 a[i++]=m;
    
18.             }
    
19. 
    
20.             bool flag=true;
    
21.             for ( i=0;i<=dig-3;i++)
    
22.             {
    
23.                 if (a[i+2]!=a[i+1]+a[i])
    
24.                 {
    
25.                     flag=false;
    
26.                     break;
    
27.                 }
    
28.             }
    
29.             if (flag)
    
30.                         {
    
31.                     printf("%d",n);
    
32.                      printf(++count%10?"\t":"\n");
    
33.             }       
    
34.         }
    
35.     }
    
36.     printf("\nCount : %d\n",count);
    
37.     return 0;
    
38. }
    

复制代码

leeweb

57个，穷举法

leeweb

穷举法