系统会为您提供部分填充的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

（输入可以一维或二维数组以及字母或数字等形式给出。）

假使，假设

• 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获取一个字节。如果您不介意极端低效率，则可以省去$$_||=（换位表）并获得6个字节。如果您忽略了，$_=它将显示您在哪里玩而不是结果（1如果有，继续比赛并赢得比赛；如果有，继续比赛2并抽奖；如果有任何比赛3，则输掉）

建立并评估完整的minimax树。除非板子已经足够好，否则您将耗尽内存和时间。