部分的に塗りつぶされたConnect 4グリッド（7x6）が表示されます。

O X             
O X          
X O X O     O
X O X O   X X
O X X X O O X
O O O X X O X

（入力は1Dまたは2D配列として、また文字または数字などとして与えることができます。）

と仮定する

• Xがゲームを開始しました。
• 誰もまだ勝ちません。
• プレイヤーは今までうまくプレイできなかったかもしれませんが、今後は両方とも最適な戦略を採用します。
• 入力グリッドに問題はありません。

どのプレイヤーが勝つ（または引き分け）を示す単一の値を出力する必要があります

コードゴルフチャレンジ; 最短のコードが優先されます。プログラムは、妥当な時間で実際に出力を計算する必要はありませんが、有限の時間で出力が正しく取得されることを証明できるはずです。

Perl、119 118 117バイト

+4を含む -0p

STDINにスペースが埋め込まれた回転ボードを提供します（重力が石を右に引っ張ります）

connect4.pl
  OXXX
   XOO
    OX
  OOXX
  XXXO
XXOOXO
OOXXOO
^D

connect4.pl：

#!/usr/bin/perl -p0
y/XO/OX/if$^S|y/X//>y/O//;$_=$$_||=/Z@{[map"|O".".{$_}O"x3,0,5..7]}/sx||s% (?! )%$_="$`X$'";do$0%eg?/1/?3:1+/2/:2

3移動するプレイヤーが勝った1場合、移動するプレイヤーが負けた場合2、引き分けの場合に印刷します。

古いperlでは、リテラル^Sを使用して1バイトを取得できます。極端な非効率性を気にしない場合は、$$_||=（転置テーブル）を省き、さらに6バイトを増やすことができます。除外する$_=と、結果の代わりにどこでプレイするかが表示されます（ある1場合はプレイして勝ち、ある場合はプレイし2て描き、ある場合はプレイし3て負けます）

完全なミニマックスツリーを構築および評価します。ボードがすでに十分に満たされていなければ、メモリと時間を使い果たします。