Zadanie:

Zwraca tablicę ze wszystkimi możliwymi parami między elementami tablicy.

Przykład

Od a=["a", "b", "c", "d"];powrotu b=[["a","b"],["a","c"],["a","d"],["b","c"],["b","d"],["c","d"]].

Pary mogą być w dowolnej kolejności, o ile wszystkie możliwe kombinacje są uwzględnione i oczywiście ["b","d"]są takie same ["d","b"].

Wejście

Tablica unikatowych elementów łańcuchowych złożonych z znaków z klasy [a-z].

Wynik

Tablica 2d zawierająca wszystkie możliwe pary elementów tablicy wejściowej.

Przypadki testowe

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"]]

Uwaga: nie mogłem znaleźć duplikatu tego wyzwania. Jeśli istnieje, powiadom mnie komentarzem, aby zostawić pytanie.

Galaretka , 2 bajty

Œc

Wypróbuj online!

Haskell , 29 bajtów

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

Wypróbuj online! Przykładowe użycie: f ["a","b","c"]daje [("a","b"),("a","c"),("b","c")].

Za pomocą flagi -XTupleSectionsmożna to skrócić do 27 bajtów, jednak flaga musi zostać policzona:

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

Wypróbuj online!

Mathematica, 14 bajtów

#~Subsets~{2}&

Wejście

[{„a”, „b”, „c”}]

Haskell, 25 bajtów

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

Wypróbuj online!

Pętla zewnętrzna ( x) i wewnętrzna ( y) przechodzą przez listę wejść i zachowują parę (x,y)tylko wtedy, gdy x < y.

05AB1E , 3 bajty

Kod:

æ2ù

Wykorzystuje kodowanie 05AB1E . Wypróbuj online!

Wyjaśnienie:

æ      # 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

Pobiera dane wejściowe w formularzu

abcd

i wyniki jako

ad
ac
ab
bd
bc
cd

Wyjaśnienie

Najpierw AX<esc>dołącza Xdo danych wejściowych, aby obsłużyć dane wejściowe o 2 długościach, co jest konieczne z powodów, które wkrótce staną się jasne.

Potem pojawia się pierwsze makro rekurencyjne formy qq...@qq@q. (Nagraj makro q, uruchom ponownie na końcu, zakończ nagrywanie, a następnie uruchom się raz.) W treści makra Ypduplikuje bieżącą linię, lwyłamuje się z makra, jeśli linia ma teraz jeden znak, i Xusuwa pierwszy znak w linii. To ma końcowy wynik produkcji

abcdX
abcX
abX
aX
X
X

Ignorując na razie Xs, wszystko, co musimy zrobić, to zmienić abcdXna przykład w ab / ac / ad / aX. Osiąga się to dzięki drugiemu makro rekurencyjnemu,qr...@rq .

W tym makrze najpierw kopiujemy wiersz ( Yp), a następnie usuwamy wszystko oprócz pierwszych dwóch znaków, przesuwając w prawo dwa ( ll) i usuwając do końca wiersza ( D). Ponieważ kursor znajduje się teraz na kxdrugim znaku linii, usunie drugi znak z poprzedniej linii, który jest akurat tym, który został właśnie sparowany z pierwszym znakiem w linii. Proces ten jest następnie powtarzany, zaczynając od początku wiersza ( h) tyle razy, ile jest to konieczne ze względu na rekurencyjny charakter makra.

Teraz wystarczy uruchomić makro w każdej linii, co można osiągnąć za pomocą :g/./norm@r(nie jestem pewien, dlaczego zachowuje się inaczej niż :%norm@r, ale wystarczy powiedzieć, że ten ostatni nie działa zgodnie z przeznaczeniem). Linie za pomocą Xsą usuwane za pomocą :g/X/d, a puste linie na końcu po lewej w wyniku budowy rmakra są czyszczone za pomocą dG.

Oktawa, 23 bajty

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

Wypróbuj online!

Python 3 , 44 bajty

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

Wypróbuj online!

Pobiera dane wejściowe jako indywidualne parametry funkcji.

Brachylog , 5 bajtów

{⊇Ċ}ᶠ

Wypróbuj online!

Jak to działa

{⊇Ċ}ᶠ
    ᶠ   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 bajtów

combn(scan(,''),2)

czyta listę ze standardowego wejścia, zwraca macierz, w której kolumny są parami.

Wypróbuj online!

Python, 53 bajty

2 bajty zapisane dzięki @CalculatorFeline

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

Wypróbuj online!

Oktawa , 49 48 bajtów

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

Anonimowa funkcja pozwalająca uniknąć wbudowanej funkcji ( nchoosek).

Wypróbuj online!

Wyjaśnienie

x+j*x' wykorzystuje rozgłaszanie do zbudowania macierzy liczb zespolonych, w których rzeczywiste i urojone części są parami punktów kodowych z danych wejściowych x .

y=triu(...,1)utrzymuje górną trójkątną część z wyłączeniem przekątnej, dzięki czemu pozostałe elementy są zerowe. Wynik jest przypisany do zmiennej y.

y=(...)(~~y)zachowuje niezerowe elementy w postaci wektora kolumny, który jest przypisany do zmiennej y.

imag(...)i real(...)wydobyć prawdziwe i urojone części.

[... ... ''] konwertuje z powrotem na char, aby zbudować wynik.

Pari / GP , 34 bajty

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

Wypróbuj online!

Python ≥ 2,7, 55 bajtów

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

repl.it!

Perl 6 , 17 bajtów

*.combinations(2)

Uff, to długa nazwa metody.

Scala, 17 bajtów

_.combinations(2)

Pyth , 7 4 bajty

^{-3 bajty dzięki Dziurawej Zakonnicy !}

.cQ2

Wypróbuj online!

Rubin , 38 34 24 bajtów

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

Dzięki Wygląda na pomysł, który oszczędził 10 bajtów.

Wypróbuj online!

JavaScript ES6, 52 bajty

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

Gdyby tak było flatMap, zaoszczędziłoby to wiele bajtów.

Python , 55 bajtów

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

Wypróbuj online!

Dłuższy niż inne odpowiedzi w Pythonie, ale używa innej techniki, więc myślę, że warto opublikować.

Japt , 2 bajty

à2

Przetestuj ( -Qflaga tylko do celów wizualizacji)

Python, 64 bajty

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

Oktawa, 38 bajtów

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

Kolejna odpowiedź, aby uniknąć nchoosekwbudowanego.

Wypróbuj online!

Clojure, 42 bajty

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

Zwraca zestaw zestawów :)

Python, 74 bajty

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

JavaScript (ES 5), od 108 do 78 bajtów

Dzisiaj zamieszczam swoją odpowiedź, ale oczywiście obiecuję, że nie zaakceptuję własnej odpowiedzi:

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 bajtów

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

Wypróbuj online!

Wyjaśnienie

({~$#: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