共感で繋がるSNS
投稿
えもん🐰🐳📷
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
1
5
コメント
話題の投稿をみつける
ﾓ ｴ
7
みお@だ
尊富士優勝や大の里大関昇進、今年だったのか。一年あっという間だったな。
九州場所千秋楽の大関同士の優勝争い、久しぶりにアツくなったなぁ。来年も大相撲が楽しみだ！
8
かえの
去年現地にいましたが、2万8888人の入場でさすが多いなーと思ってましたが、今日はそれを超えたかぁ〜
売り上げも去年82億円から94億円と伸びているから、地方競馬も元気に盛り上がってくれるのは嬉しいですね✨＞RP
4
大門
だって前の日に卒業したのに！って思っちゃったんだもん…
#HappyMagicalTour2024
#日向坂46全国ツアー東京ドーム公演DAY2
#日向坂46
2
あがめ
行くにしても日数欲しい。
3日間、現地滞在1日でユナイテッド航空15万は嫌やわ。
マイラーでも無いのに。
5
たまお
3
ふぁに
1
はった
次の世代へどんどん受け継いでいくパフォーマンスは本当にずるいですよ！
としちゃんしか勝たん！！！
#日向坂46_東京ドーム公演
#日向坂46全国ツアー東京ドーム公演DAY2
#日向坂46
6
葵
帰宅後は妹と懐かしいゲームの話をして盛り上がって最高の一日だったな～
4
紫苑
これが家猫・・・ルルだったら多分食いつこうと試行錯誤してただろうな
しずくは抱っこして父さんに近づけるとキレるからなし
3 もっとみる 
関連検索ワード
えもん🐰🐳📷 投稿者
ChatGPTに可読性無視でオセロのコード書かせてみた