소개

Connect Four는 가로, 세로 또는 대각선으로 4 개를 연속으로 시도하는 게임입니다. 이 코드 골프에서는 게임 보드를 통해 누가 이겼는지 찾으려고 노력할 것입니다. 항상 한 명의 승자가 있으며 한 명의 승자가 있습니다.

태스크

승자가 누구인지 파악하는 연결되는 4 개의 보드 감안할 때 : X나 Y. 항상 한 명의 승자가 있으며 한 명의 승자가 있습니다. 보드 크기는 게임 보드가 그림과 같이 항상 6 x 7입니다.

보드가 주어진 경우,이 경우 다음 보드 X는 빨간색과 Y파란색입니다.

입력 내용은 다음과 같습니다.

OOOOOOO
OOOOOOO
OOOOOOO
OOOOXOO
OOOXXOO
OOXYYYY

줄 바꿈 문자 (위와 같이)를 통해 게임의 행을 구분하거나, 구분 문자를 사용하지 않고, 행을 배열 또는 목록으로 나누거나 문자 행렬을 입력 할 수 있습니다.

이 예제의 올바른 출력 :

Y

Y는 연속으로 4 개가 있습니다. Y가 승자입니다. 그래서 우리는 Y를 출력합니다.

테스트 사례

입력:

OOOOOOO
OOOOOOO
OOOOOOO
OOOOOOO
OOYYOOO
OYXXXXO

산출:

X

입력:

OOOOOOO
OOOOOOO
OOOOOOO
XXXXOOO
YXYYOOO
YXYYXYX

산출:

X

입력:

YXYYXOO
XYXXYOO
XXXYYOO
YYYXXOO
XXYYYYO
XXYYXXO

산출:

Y

입력:

OOOOOOO
OOOOOOO
OYOOOOO
OOYOOOO
OOOYOOO
OOOOYOO

산출:

Y

입력:

OOOOOOO
OOOOOOO
OYOOOOX
OOYOOOX
OOOXOOX
OXOXYOX

산출:

X

채점

최소 바이트 수가 이깁니다!

젤리 , 19 바이트

UŒD;ŒD;Z;ṡ€4;/ṢEÞṪṪ

온라인으로 사용해보십시오!

이 답변의 핵심은이 비슷한 질문에 대한 나의 답변 에서 복사 한 것 입니다.

설명

UŒD;ŒD;Z;ṡ€4;/ṢEÞṪṪ
   ;  ; ;             Append {the input} and the following three values:
UŒD                     the antidiagonals of {the input};
    ŒD                  the diagonals of {the input};
       Z                the transposed {input}.
         ṡ 4          Find all length-4 substrings
          €             of each subarray within that.
            ;/        Flatten one level.
                Þ     Sort, with the following sort order:
               E        If all elements are the same, sort later.
              Ṣ         Tiebreak via lexicographical order.
                 ṪṪ   Take the last element of the last element.

상당히 간단합니다 : 우리는 모든 행, 열, 대각선 및 대각 대각선 (n-queens 유효성 검사기에서와 같이)을 취한 다음 4 개의 하위 문자열을 모두 취한 다음 4 개의 우승 라인을 정렬하는 방식으로 정렬합니다 끝. (우리는 거기 경우에 타이 브레이크 필요 OOOO에 추가 XXXX또는 YYYY마지막 요소의 마지막 요소를 가져 가라.), 그리고 그 수 있습니다 X또는 Y필요에 따라.

레티 나, 51 48 바이트

3 바이트를 절약 한 Martin Ender에게 감사합니다.

M`X((.{6}X){3}|(.{8}X){3}|(.{7}X){3}|XXX)
T`d`YX

온라인으로 사용해보십시오!

쉼표로 구분 된 행 목록으로 입력을받습니다.

자바 스크립트 (ES6), 54 55

@Arnauld 덕분에 저장된 1 바이트 편집

항상 한 명의 승자가 있고 한 명의 승자가 있기 때문에 X가 승자인지 확인합니다.

입력은 @Arnauld의 답변과 같이 구분 기호가있는 문자열입니다

F=    
b=>'YX'[+[0,6,7,8].some(x=>b.match(`X(.{${x}}X){3}`))]

;['OOOOOOO OOOOOOO OOXOOOO OOXOOOO OOXOOOO OOXOYYY'
 ,'OOOOOOO OOOOOOO OOXOOOO OOYXOOO OOYOXOO OOYYOXY'
 ,'OOOOOOO,OOOOOOO,OOOOOOO,OOOOOOO,OOYYOOO,OYXXXXO'
 ,'OOOOOOO,OOOOOOO,OOOOOOO,XXXXOOO,YXYYOOO,YXYYXYX'
 ,'YXYYXOO,XYXXYOO,XXXYYOO,YYYXXOO,XXYYYYO,XXYYXXO']
.forEach(s => console.log(s,F(s)))

젤리 , 25 22 바이트

ŒgL⁼¥Ðf
;UŒD€;Z;$ç€4FṀ

형성되는 문자열 목록 (또는 문자의 목록의 목록을) 간다 X,Y 그리고 O(또한 공간이 모두 카운터보다 낮은 순서를 갖도록 교체 작업 것이다).

온라인으로 사용해보십시오!또는 여러 줄 문자열을 사용 하는 기능 보강 된 버전 을 실행하십시오 .

방법?

ŒgL⁼¥Ðf - Link 1, runs of given length: list A, length B  e.g. "XYYYXXO", 4
Œg      - group runs of equal elements of A                     ["X","YYY","XX","O"]
     Ðf - filter keep:
    ¥   -     last two links as a dyad:
  L     -         length                                         1   3     2    1
   ⁼    -         equal to B?         (none kept in this case->) 0   0     0    0

;UŒD€;Z;$ç€4FṀ - Main link: list of list of chars (or list of stings) I
 U             - reverse each row of I
;              - I concatenated with that
  ŒD€          - positive diagonals of €ach (positive and negative diagonals)
        $      - last two links as a monad:
      Z        -     transpose of I (i.e. the columns)
       ;       -     concatenated with I (columns + rows)
     ;         - concatenate (all the required directional slices)
         ç€4   - call the last link (1) as a dyad for €ach with right argument = 4
            F  - flatten the result
             Ṁ - take the maximum ('Y'>'X'>'O') - this has the bonus effect of returning:
                               'Y' or 'X' for a winning board; and
                               'O' or '' for a (valid) game in progress.

자바 스크립트 (ES6), 77 76 69 바이트

Neil 덕분에 7 바이트 절약

입력을 무언가 분리 된 문자열 로 가져 옵니다. 여기서 무언가 는 기본적으로 모든 문자입니다.

b=>[...'XXXXYYYY'].find((c,i)=>b.match(`(${c}.{${(i%4+6)%9}}){3}`+c))

테스트 사례

let f =

b=>[...'XXXXYYYY'].find((c,i)=>b.match(`(${c}.{${(i%4+6)%9}}){3}`+c))

console.log(f("OOOOOOO,OOOOOOO,OOOOOOO,OOOOOOO,OOYYOOO,OYXXXXO"))
console.log(f("OOOOOOO,OOOOOOO,OOOOOOO,XXXXOOO,YXYYOOO,YXYYXYX"))
console.log(f("YXYYXOO,XYXXYOO,XXXYYOO,YYYXXOO,XXYYYYO,XXYYXXO"))

파이썬 2 , 143 바이트

m=input()
u=[r[::-1]for r in m]
print"YX"[any(any('X'*4in''.join(t[i][j-i]for i in range(j+1))for j in range(6))for t in(m[::-1],m,u,u[::-1]))]

문자열 목록 또는 문자 목록을 가져옵니다. 사양에 따라 6 행 x 7 열로 하드 코딩됩니다 .

온라인으로 사용해보십시오!

PHP, 71 바이트

echo preg_match('#X(XXX|(.{8}X){3}|(.{7}X){3}|(.{9}X){3})#',$argn)?X:Y;

온라인 버전

파이썬 (2) , 201 (143) 129 128 107 바이트

가로, 세로 및 대각선을 하나의 목록에 추가 한 다음 증분을 추가하고 시간을 X로 찾습니다. 그리고 항상 승자가 있기 때문에 X가 그렇지 않다면 Y 원이라고 가정 할 수 있습니다. 이 코드는 모든 다른 조각과 빈 자리의 행렬을 취합니다.

lambda m:"YX"[any("X"*4in"".join(a)for a in zip(*m)+m+zip(*["0"*(7-i)+m[i]+"00"*i+m[i]for i in range(6)]))]

온라인으로 사용해보십시오!

크레딧

• ASCII 전용으로 129에서 107 바이트까지 .

K (ngn / k) , 58 55 바이트

{"XY"@|/&/'88<x ./:/:,/{x+/:/:+3+[4#1-+!3 3]\&4}'+!6 7}

온라인으로 사용해보십시오!

{ } 인수 기능 x

+!6 7 0..5와 0..6의 모든 가능한 쌍

{ }' 그들 각자를 위해

4#1-+!3 3 8 개의 직각 대각선 방향 중 4 개입니다. (1 1;1 0;1 -1;0 1)

3+[ ]\&4 네 개의 0으로 시작합니다 (&4 ) 각 방향에서 3 단계를 수행하십시오.

x+/:/: 가능한 각 위치에서 시작하여 가능한 각 방향으로 단계를 수행하십시오.

,/사슬 같이 잇다. 이 시점에서 우리는 4 개의 좌표 쌍으로 구성된 매트릭스를 가지고 있으며, 그중 일부는 보드를 넘어 확장됩니다.

x ./:/: 에서 해당 셀을 조회 x

88<그들 중 어느 것이 "Y"-s입니까? (88은 ASCII 코드입니다."X" )

&/' 4 개의 목록 만 "Y"-s 무엇입니까? (각각 감소)

|/적어도 하나는 있습니까? (또는 감소)

"XY"@false "X"이면 true이면 true"Y"

Zsh , 207 ... 159 바이트

버전 기록 : 첫 주 ~ 25 바이트 동안 4 회 반복; 6 개월 후 ~ 25 바이트 동안 3 번 더 반복합니다.

t(){a=($^a-$^@_);for s l (${w:^^argv})s+=$l&&for ((i=0;i++<$#s;))a[i]+=$s[i];}
w=(+)
t $@
for s;w[++j]=${(l:j:)}_
t $@
t ${(Oa)@}
[[ $a = *XXXX* ]]&&<<<X||<<<Y

( 제 ) ( 초 ) ( 세 번째 ) ( 제 () 제 () 여섯째 ) 온라인으로 사용해보십시오!

바닥 글에서 입력 보드와 입력 보드를 stderr로 인쇄합니다. 아래로 스크롤하여 디버그하여 확인하십시오. 우리가 구축하는 배열은 지금 훨씬 더 길다.t입력 보드가있는 데카르트 식 제품이 되었습니다. 모든 호출 . (코드가 몇 바이트 단축되었습니다.)

여기서 다룰 내용이 많으므로 (6 판) 주석을 주석이 달린 요점으로 .

(tl; dr : 원래 배열의 전치를 연결하지만 분리 된 상태로 유지하십시오)