仕事：

配列の要素間で可能なすべてのペアを含む配列を返します。

例

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

オンラインでお試しください！

Haskell、29バイト

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

オンラインでお試しください！使用例：f ["a","b","c"]yields [("a","b"),("a","c"),("b","c")]。

フラグを使用すると、-XTupleSectionsこれは27バイトに短縮できますが、フラグをカウントする必要があります。

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

オンラインでお試しください！

Mathematica、14バイト

#~Subsets~{2}&

入力

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

Haskell、25バイト

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

オンラインでお試しください！

Outer（x）およびinner（y）は、入力リストをループし、の(x,y)場合にのみペアを保持しx < yます。

05AB1E、3バイト

コード：

æ2ù

05AB1Eエンコードを使用します。オンラインでお試しください！

説明：

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

vim、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し、最後に再度実行し、記録を終了してから、1回実行します。）マクロの本文でYp、現在の行を複製しl、行が1文字になった場合にマクロを中断しX、行の最初の文字。これは、生産の最終結果を持っています

abcdX
abcX
abX
aX
X
X

Xsを今のところ無視して、私たちがしなければならないのはabcdX、例えばに変えるだけab / ac / ad / aXです。これは、2番目の再帰マクロで実現されqr...@rqます。

このマクロでは、最初に行（Yp）を複製し、次に右の2つ（ll）に移動して行末まで削除することにより（）、最初の2文字を除くすべてを削除しDます。カーソルは行kxの2番目の文字にあるため、前の行の2番目の文字が削除されます。これは、行の最初の文字とペアになった文字です。このプロセスはh、マクロの再帰的な性質により、行の先頭（）から必要な回数だけ繰り返されます。

それは今で達成することができるすべての行、上のマクロを実行するだけです:g/./norm@r（この振る舞いは異なるよりは確かなぜ私はありません:%norm@rが、十分では言うことを意図したように、後者は動作しません。）で行Xを削除され:g/X/d、rマクロの構築の結果として左端の空白行はでクリーンアップされdGます。

オクターブ、23バイト

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

オンラインでお試しください！

Python 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からリストを読み取り、列がペアである行列を返します。

オンラインでお試しください！

Python、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)対角線を除く上三角部分を保持し、残りの要素をゼロにします。結果はvariableに割り当てられますy。

y=(...)(~~y)variableに割り当てられる列ベクトルの形式で非ゼロ要素を保持しますy。

imag(...)real(...)実部と虚部を抽出します。

[... ... ''] charに変換して出力を作成します。

パリ/ GP、34バイト

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

オンラインでお試しください！

Python≥2.7、55バイト

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

repl.it！

Perl 6、17バイト

*.combinations(2)

ヒュー、それは長いメソッド名です。

Scala、17バイト

_.combinations(2)

Pyth、7 4バイト

^{Leaky Nunのおかげで-3バイト！}

.cQ2

オンラインでお試しください！

ルビー、38 34 24バイト

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

10バイト節約したアイデアをありがとう。

オンラインでお試しください！

JavaScript ES6、52バイト

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

のようなものがあればflatMap、多くのバイトを節約できます。

Python、55バイト

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

オンラインでお試しください！

他のPythonの回答よりも長いですが、異なる手法を使用しているため、投稿する価値があると思います。

Japt、2バイト

à2

テストする（-Q視覚化の目的でのみフラグを立てる）

Python、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組み込みを避けるための別の答え。

オンラインでお試しください！

Clojure、42バイト

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

セットのセットを返します:)

Python、74バイト

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

Javascript（ES 5）、108〜78バイト

今日は答えを投稿しますが、明らかに自分の答えを受け入れないことを約束します。

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