직무:

배열 요소 사이에 가능한 모든 쌍을 가진 배열을 반환합니다 .

예

에서 a=["a", "b", "c", "d"];반환 b=[["a","b"],["a","c"],["a","d"],["b","c"],["b","d"],["c","d"]].

가능한 모든 조합이 포함되고 명백하게 ["b","d"]동일한 한 쌍은 순서에 상관없이 사용할 수 있습니다 ["d","b"].

입력

클래스의 문자로 구성된 고유 한 문자열 요소의 배열입니다 [a-z].

산출

가능한 모든 입력 배열 요소 쌍을 포함하는 2D 배열.

테스트 사례

input=["a","b","c"];
//output=[["a","b"],["a","c"],["b","c"]]

input=["a","b","c","d","e"];
//output=[["a","b"],["a","c"],["a","d"],["a","e"],["b","c"],["b","d"],["b","e"],["c","d"],["c","e"],["d","e"]]

참고 : 이 과제에 대한 사본 을 찾을 수 없습니다 . 질문이 있으면 의견을 알려주십시오.

젤리 , 2 바이트

Œc

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

하스켈 , 29 바이트

f(a:b)=map((,)a)b++f b
f _=[]

온라인으로 사용해보십시오! 사용법 예 : f ["a","b","c"]yields [("a","b"),("a","c"),("b","c")].

플래그를 사용하면 -XTupleSections27 바이트로 단축 할 수 있지만 플래그를 세어야합니다.

f(a:b)=map(a,)b++f b
f _=[]

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

수학, 14 바이트

#~Subsets~{2}&

입력

[{ "a", "b", "c"}]

하스켈, 25 바이트

f l=[(x,y)|x<-l,y<-l,x<y]

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

외부 ( x) 및 내부 ( y)는 입력 목록을 반복하며 페어 (x,y)만 유지합니다 x < y.

05AB1E , 3 바이트

암호:

æ2ù

05AB1E 인코딩을 사용합니다 . 온라인으로 사용해보십시오!

설명:

æ      # Powerset of the input
 2ù    # Keep the items of length two

정력, 50 48

AX<esc>qqYplX@qq@qqrYpllDkxh@rq:g/./norm@r<cr>:g/X/d<cr>dG

형태로 입력을받습니다

abcd

다음과 같이 출력

ad
ac
ab
bd
bc
cd

설명

먼저, 2 길이 입력을 처리하기 위해 입력에 AX<esc>an X을 추가합니다 .

그런 다음 형식의 첫 번째 재귀 매크로가 제공됩니다 qq...@qq@q. (매크로 q기록, 끝에서 다시 실행, 기록을 종료 한 다음 한 번 실행) 매크로 본문 Yp에서 현재 줄을 복제 l하고 줄이 이제 한 문자 길이 인 경우 매크로를 X끊고 삭제합니다. 줄의 첫 문자. 이것은 생산의 최종 결과가 있습니다

abcdX
abcX
abX
aX
X
X

무시 X지금들, 우리가해야 할 모든 차례 abcdX에, 예를 들어, ab / ac / ad / aX. 이것은 두 번째 재귀 매크로로 수행 qr...@rq됩니다.

이 매크로에서는 먼저 행 ( Yp)을 복제 한 다음 오른쪽 두 개 ( ll) 를 이동 하고 행 끝 ( )으로 삭제 하여 처음 두 문자를 제외한 모든 문자를 삭제합니다 D. 커서가 이제 행 kx의 두 번째 문자에 있으므로 이전 행에서 두 번째 문자를 삭제합니다. 이는 이전 행에서 첫 번째 문자와 쌍을 이루는 문자입니다. 그런 다음이 프로세스는 h매크로의 재귀 적 특성으로 인해 줄의 시작 부분 ( ) 부터 다시 여러 번 시작 하여 반복됩니다.

지금은 달성 할 수있는 모든 라인에 매크로를 실행 단지 문제 :g/./norm@r(이 동작합니다 다른 이상이 있는지 왜 아니에요 :%norm@r,하지만 충분할 말을 의도 한대로 후자는 작동하지 않습니다.)와 라인 X으로 삭제됩니다 :g/X/d, r매크로 의 구성으로 인해 왼쪽 끝에있는 빈 줄 은으로 정리됩니다 dG.

옥타브, 23 바이트

@(s)[nchoosek(+s,2) '']

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

파이썬 3 , 44 바이트

f=lambda k,*s:[*s]and[[k,x]for x in s]+f(*s)

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

개별 기능 매개 변수로 입력을받습니다.

Brachylog , 5 바이트

{⊇Ċ}ᶠ

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

작동 원리

{⊇Ċ}ᶠ
    ᶠ   find all the possible outputs of the following predicate
 ⊇          the output is an ordered subset of the input
  Ċ         the output is a list with two elements

R , 18 바이트

combn(scan(,''),2)

stdin에서 목록을 읽고 열이 쌍인 행렬을 반환합니다.

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

파이썬, 53 바이트

@CalculatorFeline 덕분에 2 바이트 절약

lambda a:[(x,y)for i,x in enumerate(a)for y in a[:i]]

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

옥타브 , 49 48 바이트

@(x)[imag(y=(y=triu(x+j*x',1))(~~y)) real(y) '']

내장 ( nchoosek) 을 피하는 익명 함수 .

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

설명

x+j*x'브로드 캐스팅을 사용하여 실수 부와 허수 부가 모두 입력의 코드 포인트 쌍인 복소수 행렬을 만듭니다 x.

y=triu(...,1)대각선을 제외한 위쪽 삼각형 부분을 유지하여 나머지 요소를 0으로 만듭니다. 결과는 variable에 할당됩니다 y.

y=(...)(~~y)변수에 할당 된 열 벡터의 형태로 0이 아닌 요소를 유지합니다 y.

imag(...)그리고 real(...)실수 부와 허수 부분을 추출합니다.

[... ... ''] 출력을 빌드하기 위해 char로 다시 변환합니다.

Pari / GP , 34 바이트

a->concat([[[x,y]|y<-a,x<y]|x<-a])

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

파이썬 ≥ 2.7, 55 바이트

lambda l:list(combinations(l,2))
from itertools import*

repl.it!

펄 6 , 17 바이트

*.combinations(2)

휴, 그것은 긴 방법 이름입니다.

스칼라, 17 바이트

_.combinations(2)

Pyth , 7 4 바이트

^{Leaky Nun 덕분에 -3 바이트 !}

.cQ2

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

루비 , 38 34 24 바이트

->x{[*x.combination(2)]}

10 바이트를 절약 한 아이디어에 감사합니다.

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

자바 스크립트 ES6, 52 바이트

a=>a.map((x,i)=>a.slice(0,i).map(y=>[x,y])).slice(1)

그런 것이 있다면 flatMap많은 바이트를 절약 할 수 있습니다.

파이썬 , 55 바이트

f=lambda s:[(s[0],j)for j in s[1:]]+f(s[1:])if s else[]

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

다른 Python 답변보다 길지만 다른 기술을 사용하므로 게시 할 가치가 있다고 생각합니다.

Japt , 2 바이트

à2

테스트 ( -Q시각화 목적으로 만 플래그 지정)

파이썬, 64 바이트

f=lambda a:sum((list(zip(a, a[i:]))for i in range(1,len(a))),[])

옥타브, 38 바이트

@(s)s([[x y]=find(s|s'),y](y<x,[2 1]))

nchoosek내장 을 피하는 또 다른 대답 .

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

클로저, 42 바이트

#(set(for[i % j(remove #{i}%)](set[i j])))

세트를 반환합니다 :)

파이썬, 74 바이트

f=lambda a:[(c,d) for i,c in enumerate(a) for j,d in enumerate(a) if i<j]

108 바이트에서 78 바이트 사이의 Javascript (ES 5)

나는 오늘 내 답변을 게시하지만 분명히 내 자신의 답변을 수락하지 않을 것을 약속합니다.

x=input;
a=[];

for(n=0;n<(x.length-1);n++){for(i=n+1;i<(x.length);i++){a.push([x[n],x[i]]);}}

J , 17 바이트

({~$#:I.@,)#\</#\

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

설명

({~$#:I.@,)#\</#\  Input: string S
               #\  Get the length of each prefix of S
           #\      Get the length of each prefix of S again
             </    Test using greater than (<) between each
         ,         Flatten
      I.@          Find the indices where the value is 1
   $               Shape of that table
    #:             Convert the indices to the base represented by the shape
 {~                Index into S at those values