iseemu2009 发表于 前天 17:24

五道难题求解

五道有趣的难题求解

northwolves 发表于 昨天 00:04

第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 发表于 昨天 08:37

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 发表于 昨天 08:45

貌似第2题也只能遍历

northwolves 发表于 昨天 09:01

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 发表于 昨天 09:30

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




正确，编程能力也不错啊

iseemu2009 发表于 昨天 09:34

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

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

northwolves 发表于 昨天 16:30

第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 发表于 昨天 16:50

第5题:
843296

northwolves 发表于 昨天 16:53

第五题反而是最简单的：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
查看完整版本: 五道难题求解