出个题目.

sunya_0529

时间的音符 发表于 2024-9-28 10:27
对

不知道结果可对，看前3个能对上，脑子都快转不动了——

sunya_0529

时间的音符 发表于 2024-9-28 14:21
这个错了.....

感谢回复，重新检查了一下，错的还不少，现在不知道结果是不是全部都正确了~

（楼主方便的话请发个标准答案，让我们自行验证一下）

速度方面暂时没有好的思路优化，先把结果搞对吧

大灰狼1976

我尽量不看解决方案先自己思考。
先考虑某个!变化时产生的分值变化，变成0时会增加多少，变成1时增加多少，哪个有绝对优势就换成哪个。
绝对优势是指和其他的!组合均会产生分值的情况下也小于另外一种情况。
但不是绝对优势的情况还在考虑

大灰狼1976

没有绝对优势的先跳过，处理下一个，直到结束，还有i的话再次处理，直到全部结束。
等验证。

大灰狼1976

只测试了一个

1. Sub test()
   
2. Dim s$, i&, j&, sTmp$, sm(2), smTmp(2), n, x&, y&, m0Max, m0Min, m1Max, m1Min
   
3. x = 144: y = 54
   
4. s = "0011111!!0!!111!11!!1!011!!0001!10000!101111!!0!11!0!!10!00!!1!!!00100000!1!10!1!10!1111!!0!!10!110!0!!10011!!001!1!01!11!000!100000110!!!0010100110!!0!000010110!!01110"
   
5. Retry:
   
6. For i = 1 To Len(s)
   
7.   If Mid(s, i, 1) = "0" Then
   
8.     sm(0) = sm(0) + 1
   
9.   ElseIf Mid(s, i, 1) = "1" Then
   
10.     sm(1) = sm(1) + 1
    
11.   Else
    
12.     sm(2) = sm(2) + 1
    
13.   End If
    
14. Next i
    
15. For i = 1 To Len(s)
    
16.   n = Mid(s, i, 1)
    
17.   If n <> "!" Then
    
18.     smTmp(n) = smTmp(n) + 1
    
19.   Else
    
20.     m0Max = smTmp(1) * y + (sm(1) - smTmp(1)) * x + (sm(2) - smTmp(2) - 1) * x + smTmp(2) * y
    
21.     m0Min = smTmp(1) * y + (sm(1) - smTmp(1)) * x
    
22.     m1Max = smTmp(0) * x + (sm(0) - smTmp(0)) * y + (sm(2) - smTmp(2) - 1) * y + smTmp(2) * x
    
23.     m1Min = smTmp(0) * x + (sm(0) - smTmp(0)) * y
    
24.     If m0Min > m1Max Then
    
25.       Mid(s, i, 1) = 1
    
26.       smTmp(1) = smTmp(1) + 1
    
27.       sm(1) = sm(1) + 1
    
28.       sm(2) = sm(2) - 1
    
29.     ElseIf m1Min > m0Max Then
    
30.       Mid(s, i, 1) = 0
    
31.       smTmp(0) = smTmp(0) + 1
    
32.       sm(0) = sm(0) + 1
    
33.     Else
    
34.       smTmp(2) = smTmp(2) + 1
    
35.     End If
    
36.   End If
    
37. Next i
    
38. If InStr(s, "!") Then GoTo Retry
    
39. Debug.Print s
    
40. End Sub

复制代码

大灰狼1976

retry时忘记做数据重置，后续修正

不规则结构

看了楼主24楼的提示，似乎是在暗示，本题应该是ax+by(x、y为常数)取最小值的问题。1111....0000或者000...111替换感叹号。不知道这其中有什么玄机，也不知道猜想对不对。反正我脑子是转不动了！坐等楼主公布答案！

PurpleIdea

这个题目炸出好多版主啊，各种学习ing！