Вам надається частково заповнена сітка 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нічия.

Для старих perls ви можете скористатися буквалом, ^Sщоб отримати один байт. Якщо ви не заперечуєте проти надзвичайної неефективності, ви можете залишити $$_||=(таблицю транспозиції) і набрати ще 6 байт. Якщо ви не вийдете, $_=це покаже вам, де грати замість результату (грайте далі 1та вигравайте, якщо такий є, грайте далі 2та малюйте, якщо є такий, або грайте на будь-який 3і програйте)

Створює та оцінює повне мінімакс-дерево. У вас не вистачить пам’яті та часу, якщо дошка вже досить добре заповнена.