81 개의 카드가있는 카드 게임 인 Set (어린이를위한 멋진 게임) 의 게임 을 알고 계실 것입니다 . 각 카드에는 4 가지 속성 (양식, 숫자, 색상 및 채우기)이있는 그림이 있습니다. 각 속성에는 3 가지 값이 있습니다.

form: wave, oval, diamond
colour: red, purple, and green
number: 1, 2, 3
fill: none, dashed, opaque.

12 장의 카드가 테이블에 열리게되었으며 이제 세트를 표시해야합니다. 세트는 모든 속성 값이 0, 1 또는 3 회 발생하는 3 개의 카드로 구성됩니다. 빨간 숫자가 있거나 카드가 불투명하거나 숫자가 1 개인 카드는 좋지 않습니다. 자세한 시각적 설명 은 제공된 링크를 참조하십시오 .

모든 속성이 인코딩 된 카드 코드를 구상합니다.

"WP2N"

~의 약자

2 Purple Waves with No fill

함께 예를 들어와 OR1N와DG3N

과

세트 (3 가지 형태, 3 가지 색상, 3 가지 숫자, 1 채우기)입니다.

입력은 카드를 나타내는 공백으로 구분 된 고유 코드 (81 개의 가능한 코드 중에서 임의로 선택됨)입니다.

"OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR2D OG3O OR2D"

솔루션은 주어진 모음 내에서 가능한 모든 세트를 표시해야합니다. 그래서

OR1N, WP2N, DG3N

다른 모든 세트와 함께 솔루션의 일부 여야합니다.

루비, 104 98 81 80 자

$*.combination(3).map{|c|puts c*?,if(0..3).all?{|i|c.map{|x|x[i]}.uniq.size!=2}}

샘플 실행 (예제 데이터 사용) :

c:\a\ruby>set.rb OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR1D OG3O OR2D
OR1N,WP2N,DG3N
WP2N,DR1D,OG3O
WP2N,DR1D,OG3O
DG3N,WG3S,OG3O

샘플 데이터에 WP2N,DR1D,OG3O2가 있으므로 두 번 출력 됩니다 DR1D.

설명:

$*.combination(3).map{|c|-3 장의 카드의 각 조합
puts c*?,if-다음과 같은 경우 세트를 출력합니다.
(0..3).all?{|i|-0에서 3까지의 모든 숫자 (문자열의 속성 수) true가이 블록으로 전달 될 때 평가되는 경우
c.map{|x|x[i]}- i각 문자열의 색인을 가져옵니다
.uniq.size!=2}-고유 한 속성의 양 (형태, 색상 등)이 2가 아닌 경우 (1, 3)

매스 매 티카 93 92 93 82 76 73

f={}⋃Select[StringSplit@#~Subsets~{3}, FreeQ[Tally/@(Characters@#^T),2]&]&

논리

StringSplit@#~Subsets~{3}3 카드 하위 세트 목록을 생성합니다. 다음과 같은 각 트리플 :

{{ "D", "G", "3", "N"}, { "W", "G", "3", "S"}, { "O", "G", "3", "영형"}}

또는

그런 다음

그리고 Tally/@(Characters@#^T)각 행의 고유 한 항목의 수를 연산하고.

{3,1,1,3}

3은 "모두 다르다"에 해당하고; 1은 "모두 동일"에 해당합니다.

FreeQ[...,2]같은 유형의 카드 또는 트리플의 카드 2 장을 결정합니다. 2가 타이 키 중 하나가 아닌 경우, Set of Game 규칙에 따라 3 장의 카드가 "세트"입니다.

용법

f["OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR1D OG3O OR2D"]

{{ "DG3N", "WG3S", "OG3O"}, { "OR1N", "WP2N", "DG3N"}, { "WP2N", "DR1D", "OG3O"}}

매스 매 티카 73

f = Select[StringSplit@#~Subsets~{3}, FreeQ[Tally /@ Thread@Characters@#, 2] &] &

용법

f["OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR1D OG3O OR2D"]

{{ "OR1N", "WP2N", "DG3N"}, { "WP2N", "DR1D", "OG3O"}, { "WP2N", "DR1D", "OG3O"}, { "DG3N", "WG3S ","OG3O "}}

Brachylog , 12 바이트

ṇ₁⊇Ṫz{=|≠}ᵐz

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

입력 변수를 통해 입력을 받아서 출력 변수를 통해 출력을 생성 합니다.

이 솔루션은 실제로 의미하는 바를 실제로 신경 쓰지 않기 때문에 인코딩에서 최근 닫힌 복제본 에서 가져온 두 번째 테스트 사례

                The output variable is
  ⊇             a subsequence
   Ṫ            of length 3
ṇ₁              of the input split on spaces,
    z      z    the columns of which
     {   }ᵐ     are all
       |        either
      =         the same element repeated,
        ≠       or entirely free of duplicates.

GolfScript, 53 자

" "/:w,,{:a,{:^,{a^]{w=}%.0\zip{.&,2=|}/!{.p}*;}/}/}/

온라인 예 와 같이 STDIN에 입력해야합니다 .

> OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR2D OG3O OR2D
["OR1N" "DG3N" "WP2N"]
["WP2N" "OG3O" "DR1D"]
["DG3N" "OG3O" "WG3S"]
["WR2D" "OR2D" "DR2D"]

주석이 달린 코드 :

" "/:w          # split the input at spaces and assign it to variable w
,,              # create the array [0..n-1] (n being the length of w)
{:a,{:^,{       # three nested loops: a=0..n-1, ^=0..a-1, _=0..b-1 
                # (third loop has no variable assigned but just pushes on stack)
    a^]         # make an array [a,^,_] of the three loop variables
    {w=}%       # take the corresponding list items, i.e. [w[a],w[^],w[_]]
    .0\         # push zero, add duplicate of the the array
    zip         # zip transposes the array, thus [OR1N WP2N DG3N] -> [OWD RPG 123 NNN]
    {           # loop over those entries
      .&        # unique
      ,2=       # length equals 2?
      |         # "or" with top of stack (two zero pushed before)
    }/          # end of loop, on stack remains the results of the "or"s
    !{.p}*      # if no length of 2 is there, make a copy of the set and print it
    ;           # discard stack item
}/}/}/          # closing the three nested loops

자바 스크립트 (323) (313)

function a(b){d=h=[];c=e=f=0;for(i in b){for(j in b){for(k in b[i]){if(b[i][k]==b[j][k]){if(c+f<4)c++;else if(c==4){h+=b[j];if(h.length=3)return h}}else{for(l in d){for(m in d[l]){g=f;if(d[l][2]==i){if(d[l][3]==k)if(b[j][k]!=d[l][0]&&b[j][k]!=d[l][1])f++;}else{continue}}if(g==f)d[e++]=[b[i][k],b[j][k],j,k]}}}}}}

객체 배열을 가져 와서 객체 배열을 반환하는 함수입니다.

데모 피들 (정리).

APL (IBM), 76

⍉¨x/⍨{{⍵≡1⌽⍵}⍵=1⌽⍵}¨x←⊃¨(∘.,/3⍴⊂⍪¨(' '≠y)⊂y←⍞)⌷⍨¨z/⍨∧/¨2</¨z←,⍳3⍴12

IBM APL이 없지만 이것이 효과가 있다고 생각합니다.

샘플 실행 (Dyalog APL에서 IBM APL 모방)

OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR1D OG3O OR2D
 OR1N  WP2N  WP2N  DG3N 
 WP2N  DR1D  DR1D  WG3S 
 DG3N  OG3O  OG3O  OG3O 

세이지, 71

C문자열 인 경우 "OR1N WP2N DG3N DR1D WG3S WG1N WR2D WP3N DR2O DR1D OG3O OR2D"실행

[c for c in Subsets(C.split(),3)if{1,3}>={len(set(x))for x in zip(*c)}]

얻을 [{'DR1D', 'OG3O', 'WP2N'}, {'DR2D', 'WR2D', 'OR2D'}, {'WG3S', 'OG3O', 'DG3N'}, {'DG3N', 'WP2N', 'OR1N'}]

그리고 Set이 프로젝션 라인이라는 해석을 사용하는 매우 다른 접근법이 있습니다 GF(3)^4.

[c for c in Subsets(C.split(),3)if sum(matrix(3,map('WODRPG123N'.find,''.join(c))))%3==0]

나는 그것을 D남용하는 방법을 알아낼 때까지 두 번 사용 된 약간 화가났다 . 그러나 더 좋은 find방법 은 방법을 남용하는 것입니다. str.find문자를 찾을 수 없으면 -1을 반환합니다. 이 (가) 이후 -1 = 2 mod 3에 문자 S가 발생하지 않기 때문에 해당 문자 가 올바르게 처리됩니다 'WODRPG123N'.

파이썬 2 , 99 바이트

lambda A:[a for a in combinations(A,3)if all(len(set(t))-2for t in zip(*a))]
from itertools import*

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