소개

Nine Mens ‘s Morris (Mills라고도 함)는 다음 보드에서 재생되는 두 명의 플레이어를위한 보드 게임입니다 (링크 된 Wikipedia 페이지에서 가져온 이미지).

각 선수는 9 명의 남자, 흑백으로 착색됩니다. 구체적인 규칙은이 도전에 중요하지 않지만 관심이 있다면 Wikipedia 페이지를 확인 하십시오 .

도전

특정 보드 상태를 나타내는 그리드를 입력으로 지정하면 총 밀 수를 m로 출력합니다 0<=m<=8.
같은 색의 세 남자가 연결된 줄의 직선에있을 때 밀을 형성합니다. b2에이 f2남자가 다른 색의 때문에 밀이 아니다. 또한 d2하는 d5세 개의 점을 연결해야하기 때문에 밀을 형성하지 않을 것입니다.
위 이미지의 보드에는 예를 들어 두 개의 밀이 있습니다. 에서 하나 f2에 f6그리고 하나 e3에 e5.

입력

보드는 위의 예제 이미지와 같이 24 포인트가 연결된 2D 그리드로 표시됩니다. 이 예에서는 a-g열에 문자를 사용 1-7하고 행에 숫자를 사용 하지만 24 개의 고유 좌표를 다음 상태 중 하나에 매핑하는 경우 적절한 입력 형식을 선택할 수 있습니다.

• 빈
• 블랙에 의해 촬영
• 흰색으로 촬영

구체적인 repersentation은 당신에게 달려 있습니다. 당신은 색상에 대해 “b”또는 “w”로 제한되지 않습니다.

이 외에도 입력 내용에 추가 정보가 포함되어 있지 않을 수 있습니다.

추가 사항

• 어떤 종류의 값으로도 점을 매핑 할 필요는 없습니다. 입력을 2D 배열로 가져 오려면 괜찮습니다. 그러나 거기에있는 모든 점이 사용되는 것은 아니며 그 점 사이의 연결을 고려해야한다는 것을 명심하십시오.
• 입력이 비어있을 수 있습니다.이 경우 0을 출력해야합니다 (빈 보드-> 밀 없음).
• 각 선수는 9 명의 남자를 가지고 있기 때문에, 입력은 18 점 이상을 포함하지 않습니다.
• 입력에 빈점을 남길 수 있으므로 입력 된 점만 남겨 둘 수 있습니다.
• 어떤 식 으로든 입력을 주문할 수 있습니다. 특정 주문에 의존 할 수 없습니다.
• 입력이 항상 유효하다고 가정 할 수 있습니다. 이것은 각 색의 남자가 9 명을 넘지 않으며 각 점이 고유하다는 것을 의미합니다.

규칙

• 솔루션에 어떤 입력 형식을 사용하는지 명확하게하십시오. 프로그램의 예제 실행을 적극 권장합니다.
• 기능 또는 전체 프로그램이 허용됩니다.
• 입 / 출력의 기본 규칙 .
• 표준 허점이 적용됩니다.
• 이것은 code-golf 이므로 바이트 수가 가장 적습니다. Tiebreaker는 이전에 제출되었습니다.

테스트 사례

여기의 입력 형식은 위의 예에서와 같이 좌표가 첫 번째 요소이고 두 번째 요소의 상태 인 튜플 목록입니다. 흰색으로 찍힌 점은 “w”로 표시되고 검은 점으로 찍힌 점은 “b”로 표시됩니다. 다른 모든 포인트는 제외되고 비어 있습니다.

[( "a4", "w"), ( "b2", "b"), ( "b4", "b"), ( "c4", "b"), ( "d1", "w") , ( "d2", "w"), ( "e3", "w"), ( "e4", "w"), ( "e5", "w"), ( "f2", "b") , ( "f4", "b"), ( "f6", "b"), ( "g4", "w")]-> 2
[( "a1", "b"), ( "a4", "b"), ( "a7", "b"), ( "b4", "b"), ( "c4", "b") , ( "d3", "w"), ( "d2", "w"), ( "d1", "w")]-> 3
[]-> 0
[( "b4", "b"), ( "a4", b "), ("c4 ", w")]-> 0
[( "b4", "b"), ( "a4", b "), ("c4 ", b")]-> 1
[( "a1", "b"), ( "a4", "b"), ( "a7", "b"), ( "b2", "b"), ( "b4", "b") , ( "b6", "b"), ( "c3", "b"), ( "c4", "b"), ( "c5", "b"), ( "e3", "w") , ( "e4", "w"), ( "e5", "w"), ( "f2", "w"), ( "f4", "w"), ( "f6", "w") , ( "g1", "w"), ( "g4", "w"), ( "g7", "w")]-> 8

행복한 코딩!

답변

≢{|∊(+/⍵⍪↓⍵),⊢/4 2⍴+⌿⍵}∩≢

000---------001---------002
 |           |           |
 |  100-----101-----102  |
 |   |       |       |   |
 |   |  200-201-202  |   |
 |   |   |       |   |   |
010-110-210     212-112-012
 |   |   |       |   |   |
 |   |  220-221-222  |   |
 |   |       |       |   |
 |  120-----121-----122  |
 |           |           |
020---------021---------022

ABC      AB
DEF  ->  CD
GHI      EF
         GH  ("I" disappears)

a=>btoa`i·yø!9%z)ª»-ºü1j;ÝÈ%¥·¡ªÜ"·ç¹Ê1`.replace(/.../g,b=>(a[b[0]]+a[b[1]]+a[b[2]])/3&1||'').length

a=>'abcdefghijklmnopqrstuvwxajvdksglpbehqtwimrfnucox'.replace(/.../g,b=>(a[b[0]]+a[b[1]]+a[b[2]])/3&1||'').length

{b:1,d:-1,e:1,f:-1,i:1,k:-1,l:-1,m:1,n:-1,r:1,u:-1} => 2
{j:1,d:-1,k:-1,l:-1,b:1,e:1,i:1,m:1,r:1,f:-1,n:-1,u:-1,o:1} => 2
{a:-1,j:-1,v:-1,k:-1,l:-1,h:1,e:1,b:1} => 3
{} => 0
{k:-1,j:-1,l:1} => 0
{k:-1,j:-1,l:1} => 1
{a:-1,j:-1,v:-1,d:-1,k:-1,s:-1,g:-1,l:-1,p:-1,i:1,m:1,r:1,f:1,n:1,u:1,c:1,o:1,x:1} => 8

Count[Total/@{{a1,d1,g1},{b2,d2,f2},{c3,d3,e3},{a4,b4,c4},{e4,f4,g4},{c5,d5,e5},{b6,d6,f6},{a7,d7,g7},{a1,a4,a7},{b2,b4,b6},{c3,c4,c5},{d1,d2,d3},{d5,d6,d7},{e3,e4,e5},{f2,f4,f6},{g1,g4,g7}}/.#/.{"w"->1,"b"->2},3|6]&

{a4 -> "w", b2 -> "b", b4 -> "b", c4 -> "b", d1 -> "w", d2 -> "w", e3 -> "w", e4 -> "w", e5 -> "w", f2 -> "b", f4 -> "b", f6 -> "b", g4 -> "w"}

Count[Total/@{a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,a,j,v,d,k,s,g,l,p,b,e,h,q,t,w,r,i,m,f,u,n,c,o,x}~Partition~3,3|6]/.#&

+/1=(≢¨(,∪/,∪⌿⍤2),(⊢/4 2⍴∪⌿))