围棋盘随机下子

l4m2

19*19的围棋盘，每次随机一个点和颜色试着下子，如果吃子或被吃就下不了重试。求最后空数期望

1. Dim A(18, 18)
   
2. Do
   
3.   X = Int(Rnd * 19)
   
4.   Y = Int(Rnd * 19)
   
5.   C = Rnd < 0.5
   
6.   If 颜色C下在A棋盘(X,Y)出合法且不吃 Then
   
7.     A(X, Y) = C
   
8.   End If
   
9. Loop Until 不再可能下子

复制代码