谁能写一个 猜数字游戏解算的算法，短小精悍

JuncoJet

先介绍一下猜数字 数字为四个数字不重复 比如 1234
如果猜 4567 就是数字正确但位置不对，结果 0A1B
根据这样的提示再猜 5674，结果 1A0B
就是这样，那时候文曲星里面就有这样的游戏

然后根据已有的数据 比如

1. 
   
2. 1357 1A1B
   
3. 1235 3A0B
   
4. 1243 2A2B
   
5. 1423 1A3B
   

复制代码

最快的计算出结果

JuncoJet

lowxiong

解算，应该暴力最简单精悍吧。

JuncoJet

http://baike.baidu.com/link?url= ... AWh1n0Yi#reference-

lowxiong

这个AI我认为需要各个击破，每个组合有不同的破解策略，如0A0B：划掉这4个数，接下来在剩下的6个数里组合，2A2B，则最多3次两两交换。不可能出现3A1B或1A3B的情况

acme_pjz

根据已有数据列出所有可能的结果这个很容易写吧，我很久以前写过……AI的话我用的是从所有可能结果里面随机选出一个出来

小黑夜

這個是mastermind哦

JuncoJet

1. Private Sub Command3_Click()
   
2. 'On Error GoTo break
   
3.     Text2 = vbNullString
   
4.     Dim lst(9)
   
5.     For i = 0 To 9
   
6.         lst(i) = 1
   
7.     Next
   
8.     txt = Split(Text1, vbCrLf)
   
9.     For Each s In txt
   
10.         If Len(s) < 8 Then
    
11.             GoTo break
    
12.         End If
    
13.         x = Split(s, " ")
    
14.         a = Val(x(1))
    
15.         b = Val(x(2))
    
16.         Dim n(3)
    
17.         For i = 0 To 3
    
18.             c = Mid(x(0), i + 1, 1)
    
19.             n(i) = Val(c)
    
20.         Next
    
21.         Select Case a + b
    
22.         Case 4
    
23.             For i = 0 To 9
    
24.                 lst(i) = 0
    
25.             Next
    
26.             For i = 0 To 3
    
27.                 lst(n(i)) = 1
    
28.             Next
    
29.         Case 3
    
30.             Select Case a
    
31.             Case 3
    
32.             Case 2
    
33.             Case 1
    
34.             Case 0
    
35.             End Select
    
36.         Case 2
    
37.             Select Case a
    
38.             Case 2
    
39.             Case 1
    
40.             Case 0
    
41.             End Select
    
42.         Case 1
    
43.             Select Case a
    
44.             Case 1
    
45.             Case 0
    
46.             End Select
    
47.         Case 0
    
48.             For i = 0 To 3
    
49.                 lst(n(i)) = 0
    
50.             Next
    
51.         End Select
    
52.     Next
    
53. break:
    
54.     out = vbNullString
    
55.     x = 0
    
56.     Dim lst2(9)
    
57.     For i = 0 To 9
    
58.         lst2(i) = -1
    
59.         If lst(i) = 1 Then
    
60.             lst2(x) = i
    
61.             x = x + 1
    
62.         End If
    
63.     Next
    
64.     z = x - 1
    
65.     x = 0
    
66.     For a = 0 To z
    
67.         For b = 0 To z
    
68.             For c = 0 To z
    
69.                 For d = 0 To z
    
70.                     If a <> b And a <> c And a <> d And _
    
71.                        b <> c And b <> d And _
    
72.                        c <> d Then
    
73.                         out = out & lst2(a) & lst2(b) & lst2(c) & lst2(d) & vbCrLf
    
74.                         x = x + 1
    
75.                     End If
    
76.                 Next
    
77.             Next
    
78.         Next
    
79.     Next
    
80.     Label1 = x & "个结果"
    
81.     Text2 = out
    
82. End Sub
    

复制代码

现在我能想到的解算方式是这样的，A+B个数分类，然后拆分AB个数
思路是5楼启发我的

JuncoJet

这个可以有直接算法的结果 A+B==4||A+B==0
其他的话 真心不好判断

JuncoJet

1234 2A0B
5678 0A2B

12XX
1X3X
1XX4
X23X
X2X4
XX34

56 65
57 75
58 85
67 76
68 86
78 87