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

chyanog

Mathematica code：

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又重写了，第一个还是“构造型”的，另一个是“暴搜型”的：

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;
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. }

复制代码

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

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. }
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

穷举法