Takuzu는 0s와 1s를 포함하는 셀로 그리드를 완성해야하는 논리 게임입니다 . 그리드는 3 가지 규칙을 따라야합니다.

1. 3 개의 수평 또는 수직 연속 셀은 동일 할 수 없습니다.
2. 각 행과 열에 동일한 수의 0s와 1s 가 있어야합니다 .
3. 두 행이 같을 수 없으며 두 열이 같을 수도 없습니다.

완성 된 그리드를 살펴 보겠습니다.

0011
1100
0101
1010

당신이 볼 수 있듯이,이 보드는 규칙을 다음 1, 2하고 3. 동일한 3 개의 수평 또는 수직 셀이 없으며 모든 행과 열에 동일한 수의 0s와 1s가 포함되며 두 행과 두 열이 동일하지 않습니다.

유효하지 않은 그리드를 봅시다 :

110100
010011
011010
101100
100011
001101

이 그리드에는 많은 문제가 있습니다. 예를 들어, 행 5에는 행 에 세 개의 0s가 있고 열에 2는 1행에 세 개의 0s가 있고 그 뒤에 세 개가 있습니다. 따라서 이것은 유효한 그리드가 아닙니다.

태스크:

당신의 임무는 n* n 0와 1s 의 2D 배열이 주어진 보드가 유효하고 완성 된 Takuzu 보드인지 확인하기 위해 보드를 검증 하는 프로그램을 만드는 것 입니다.

예 :

0011
1100
0101
1010

이 보드는 모든 규칙을 따르므로 유효한 Takuzu 보드입니다. 이것에 대해 진실한 가치를 돌려 주어야합니다.

11
00

이것은 유효한 보드 행 1이 규칙을 따르지 않습니다 2. 이에 대한 잘못된 값을 반환해야합니다.

100110
101001
010101
100110
011010
011001

이것은 유효한 보드가 아니며 규칙 3으로 인해 실패합니다 (첫 번째와 네 번째 행이 동일합니다).

110100
001011
010011
101100
100110
011001

이것은 유효한 보드가 아니며 규칙 3으로 인해 실패합니다 (첫 번째와 네 번째 열은 동일합니다).

011010
010101
101100
010011
100110
101001

이것은 유효한 보드입니다.

규칙 및 사양 :

• 모든 보드가 치수의 제곱이라고 가정 할 수 있습니다 n * n. 여기서 n양의 정수는 정수입니다.
• 모든 보드가 완성되었다고 가정 할 수 있습니다.
• 넌 나타내는 값을 포함하는 2 차원 배열로 입력 걸릴 수 0및 1또는 문자열.
• 진실과 거짓 보드에 대해 일관된 진실과 거짓 값을 출력해야하며 “truthy”와 “falsey”를 나타내는 값은 같을 수 없습니다.

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다!

답변

≠\≠,?¬{∋s₃=|∋ọtᵐ≠}

≠                           All rows are different
 \                          Transpose
  ≠                         All columns are different
   ,?                       Append the list of rows to the list of columns
     ¬{          }          It is impossible that:
       ∋                      A row/column of the matrix…
        s₃=                   …contains a substring of 3 equal elements
           |                Or that:
            ∋ọ                The occurences of 1s and 0s in a row/column…
              tᵐ≠             …are not equal

S=‼(Tf§=LṁDum(ṁ↑2g

S=‼(Tf§=LṁDum(ṁ↑2g
            m(ṁ↑2g    in each line, take at most two items for each sequence of equal items
           u          remove duplicate lines
     f§=LṁD          keep only those lines where the sum of each element doubled is equal to the length of the line
    T                 transpose the matrix (swap rows with columns)
  ‼                   do all the previous operations again
S=                    check if the final result is equal to the original input

-*S;E3Ƥ€F$TȯQZµ⁺⁼

And@@Flatten@(((s=#;Equal@@(Count[s,#]&/@{0,1})&&FreeQ[Subsequences@s,#]&/@{{1,1,1},{0,0,0}})&/@#)&&(DeleteDuplicates@#==#)&/@{#,Transpose@#})&

a=input()
n=len(a)
b=zip(*a)
print[n/2]*n*2==map(sum,a+b)>len(set(a))==len(set(b))==n<'0, 0, 0'not in`a+b`>'1, 1, 1'not in`a+b`

Λ§&Λȯ¬VEX3§&Λ§=#0#1S=uSeT

                      SeT    Create a list with the input and itself transposed
Λ                            Is the following function true for all in the list
 §&                          And the results of the following functions
   Λȯ¬VEX3                     Test for rule 1
          §&                   The and of:
            Λ§=#0#1                Test for rule 2
                   S=u             Test for rule 3

Λȯ¬VEX3
Λ         Is it True for all ...
   V      Are any of the ...
     X3   Substrings of length 3 ...
    E     All equal
 ȯ¬       Logical not

Λ§=#0#1
Λ         Is it true for all that ...
 §=       The results of the two functions are equal
   #0         Number of 0s
     #1       Number of 1s

S=u
S=    Is the result of the following function equal two its argument
  u   Remove duplicates

.+
$&,$&
O#$`.(?=.*,)
$.%`
.+
$&;$&
+`(01|10)(?=.*;)

1ms`(.)\1\1|\d,?;|(\D\d+\b).*\2

.+
$&,$&

O#$`.(?=.*,)
$.%`

.+
$&;$&

+`(01|10)(?=.*;)

1ms`(.)\1\1|\d,?;|(\D\d+\b).*\2