共感で繋がるSNS
人気
うなぱい
return false;
}
3
名無し
9
そうら
2
えもん🐰🐳📷
Dim B(7, 7), D() = {-1, 0, 1}, T = 1
Sub Main()
B(3, 3) = 2 : B(4, 4) = 2 : B(3, 4) = 1 : B(4, 3) = 1
Do
For i = 0 To 7 : For j = 0 To 7 : Console.Write(If(B(i, j) > 0, If(B(i, j) = 1, "●", "○"), "・")) : Next : Console.WriteLine() : Next
Dim P = Console.ReadLine().Split(), R = Val(P(0)), C = Val(P(1))
If B(R, C) > 0 OrElse Not C(R, C, 1) Then Continue Do
B(R, C) = T : T = 3 - T
Loop
End Sub
Function C(R, C, F) As Boolean
Dim V = False : For Each X In D : For Each Y In D
Dim I = R + X, J = C + Y, N = 0
While I >= 0 And I = 0 And J < 8 And B(I, J) = 3 - T : I += X : J += Y : N += 1 : End While
If N > 0 And I >= 0 And I = 0 And J 0 : I -= X : J -= Y : B(I, J) = T : N -= 1 : End While
Next : Next
Return V
End Function
End Modul
15