iseemu2009 发表于 2025-2-21 17:24:27

五道难题求解

五道有趣的难题求解

northwolves 发表于 2025-2-22 00:04:42

第3题： 1587000

x=Select,!LessEqual@@IntegerDigits[#]&&!GreaterEqual@@IntegerDigits[#]&];
y=Select],x[]},{k,Length@x}],IntegerQ@#[]&];
z=GatherBy[]//TableForm

%   Min
------------------
15        160
20        175
50        538
52        625
70        2270
75        3088
80        4770
84        7450
90        21780
91        27900
92        31525
94        49250
95        63720
96        152975
97        208200
98        377650
99        1587000

wayne 发表于 2025-2-22 08:37:03

16核全开,直接上暴力美学.
第一题: $1929374254627488900 = 1389019170^2$
SetSharedVariable;lst={};
func=Function[{i,b},FromDigits,IntegerDigits]]*1000+b];
ParallelDo]],AppendTo];Print[{func,Sqrt]}]]&/@{809,849,889},{i,10^6,10^7}]


第二题: 有138个,和是1922364685
SetSharedVariable;lst={};
ParallelDo]],AppendTo],{i,1,64*10^6}]
Total

northwolves 发表于 2025-2-22 08:45:40

貌似第2题也只能遍历

northwolves 发表于 2025-2-22 09:01:41

wayne 发表于 2025-2-22 08:37
16核全开,直接上暴力美学.
第一题: $1929374254627488900 = 1389019170^2$
第二题: 1922364685 ...

确实是唯一解。这个代码如何简化？
a = Select, StringMatchQ, "1" ~~ _ ~~ "2" ~~ _ ~~ "3*"] &];
b = Select, StringMatchQ, "*8" ~~ _ ~~ "9"] &];
For]*10^4 + b[];
If,
    "1" ~~ _ ~~ "2" ~~ _ ~~ "3" ~~ _ ~~ "4" ~~ _ ~~ "5" ~~ _ ~~
   "6" ~~ _ ~~ "7" ~~ _ ~~ "8" ~~ _ ~~ "9"], Print]]]

iseemu2009 发表于 2025-2-22 09:30:43

northwolves 发表于 2025-2-22 00:04
第3题： 1587000




正确，编程能力也不错啊

iseemu2009 发表于 2025-2-22 09:34:51

wayne 发表于 2025-2-22 08:37
16核全开,直接上暴力美学.
第一题: $1929374254627488900 = 1389019170^2$
第二题: 有138个,和是1922364685 ...

正确的，你们的编程能力很强。我的机器两个题能没运行出来。

northwolves 发表于 2025-2-22 16:30:47

第4题：44680

组合                   数量
-----------------------
1+1+1+1+2+3        2
1+1+1+1+5        13
1+1+1+2+2+2        3
1+1+1+2+4        54
1+1+1+3+3        20
1+1+1+6                205
1+1+2+2+3        82
1+1+2+5                646
1+1+3+4                449
1+1+7                2052
1+2+2+2+2        8
1+2+2+4                410
1+2+3+3                292
1+2+6                2482
1+3+5                2049
1+4+4                942
1+8                        11483
2+2+2+3                32
2+2+5                535
2+3+4                945
2+7                        8844
3+3+3                136
3+6                        6572
4+5                        6424
-------------------------------
合计                     44680

mathe 发表于 2025-2-22 16:50:12

第5题:
843296

前100个素数
11
17
41
73
101
137
251
257
271
353
401
449
641
751
1201
1409
1601
3541
4001
4801
5051
9091
10753
15361
16001
19841
21001
21401
24001
25601
27961
37501
40961
43201
60101
62501
69857
76001
76801
160001
162251
453377
524801
544001
670001
952001
976193
980801
1378001
1610501
1634881
1676321
1920001
2800001
3072001
5070721
5882353
6187457
6576001
6600001
7019801
8253953
12600001
18453761
18750001
21408001
30000001
32500001
40960001
62500001
69913601
89625001
130290001
175781251
188080001
245832001
256000001
281250001
421144001
532525001
572400001
655000001
727912961
756100001
1027200001
1265011073
1797655751
1843840001
3775000001
4600000001
5964848081
7175781251
9524994049
10256250001
10893295001
15508687501
20600850001
24592788001
24657552001
66489400001

northwolves 发表于 2025-2-22 16:53:18

第五题反而是最简单的：843296

s=Take,PowerMod==1&],40];{Total@s,s}

{843296,{11,17,41,73,101,137,251,257,271,353,401,449,641,751,1201,1409,1601,3541,4001,4801,5051,9091,10753,15361,16001,19841,21001,21401,24001,25601,27961,37501,40961,43201,60101,62501,69857,76001,76801,160001}}

页: [1] 2
查看完整版本: 五道难题求解