คุณได้รับตาราง 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สำหรับการวาด

คุณสามารถใช้ตัวอักษร^Sเพื่อรับหนึ่งไบต์ หากคุณไม่รังเกียจความไร้ประสิทธิภาพอย่างสุดขีดคุณสามารถออกจาก$$_||=(ตารางการย้ายข้อมูล) และรับเพิ่มอีก 6 ไบต์ หากคุณปล่อยออกไป$_=มันจะแสดงตำแหน่งที่จะเล่นแทนผลลัพธ์ (เล่นบน1และชนะหากมีหนึ่งเล่น2และวาดถ้ามีหนึ่งหรือเล่นใด ๆ3และแพ้)

สร้างและประเมินทรี minimax ที่สมบูรณ์ คุณจะใช้หน่วยความจำและเวลาหมดเว้นแต่ว่าบอร์ดจะเต็มไปด้วยความสมเหตุสมผลแล้ว