Tugas:

Kembalikan array dengan semua pasangan yang memungkinkan antara elemen-elemen dari array.

Contoh

Dari a=["a", "b", "c", "d"];kembali b=[["a","b"],["a","c"],["a","d"],["b","c"],["b","d"],["c","d"]].

Pasangan dapat dalam urutan apa pun selama semua kemungkinan kombinasi disertakan dan jelas ["b","d"]sama untuk ["d","b"].

Memasukkan

Array elemen string unik yang terdiri dari karakter dari kelas [a-z].

Keluaran

2d array yang berisi semua pasangan elemen input yang memungkinkan.

Uji Kasus

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

Catatan: Saya tidak dapat menemukan duplikat untuk tantangan ini. Jika ada, beri tahu saya dengan komentar untuk mengajukan pertanyaan.

Jelly , 2 byte

Œc

Cobalah online!

Haskell , 29 byte

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

Cobalah online! Contoh penggunaan: f ["a","b","c"]hasil [("a","b"),("a","c"),("b","c")].

Dengan flag -XTupleSectionsini dapat disingkat menjadi 27 byte, namun flag tersebut perlu dihitung:

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

Cobalah online!

Mathematica, 14 byte

#~Subsets~{2}&

memasukkan

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

Haskell, 25 byte

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

Cobalah online!

Lingkaran luar ( x) dan dalam ( y) melalui daftar input dan simpan pasangan (x,y)hanya jika x < y.

05AB1E , 3 byte

Kode:

æ2ù

Menggunakan penyandian 05AB1E . Cobalah online!

Penjelasan:

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

Mengambil input dalam formulir

abcd

dan output sebagai

ad
ac
ab
bd
bc
cd

Penjelasan

Pertama, AX<esc>menambahkan Xke input untuk menangani input 2-panjang, yang diperlukan untuk alasan yang akan segera menjadi jelas.

Kemudian muncul makro rekursif pertama, dari formulir qq...@qq@q. (Rekam makro q, jalankan sendiri lagi di akhir, akhiri rekaman, lalu jalankan sendiri sekali.) Dalam tubuh makro, Ypduplikat garis saat ini, lkeluar dari makro jika garis sekarang panjang satu karakter, dan Xmenghapus karakter pertama dalam barisan. Ini adalah hasil akhir dari produksi

abcdX
abcX
abX
aX
X
X

Mengabaikan Xs untuk saat ini, yang harus kita lakukan adalah mengubah abcdX, misalnya menjadi ab / ac / ad / aX. Ini dicapai dengan makro rekursif kedua qr...@rq,.

Dalam makro ini, pertama-tama kita menduplikasi baris ( Yp), lalu menghapus semuanya kecuali dua karakter pertama dengan menggerakkan kanan dua ( ll) dan menghapus ke akhir baris ( D). Karena kursor sekarang berada di karakter kedua baris, kxakan menghapus karakter kedua dari baris sebelumnya, yang kebetulan adalah karakter yang baru saja dipasangkan dengan karakter pertama di baris. Proses ini kemudian diulang mulai lagi dari awal garis ( h) sebanyak yang diperlukan karena sifat makro rekursif.

Sekarang hanya masalah menjalankan makro pada setiap baris, yang dapat dicapai dengan :g/./norm@r(Saya tidak yakin mengapa ini berperilaku berbeda :%norm@r, tetapi cukup untuk mengatakan, yang terakhir tidak berfungsi seperti yang dimaksudkan.) Baris dengan Xdihapus dengan :g/X/d, dan garis-garis kosong di ujung kiri sebagai akibat dari pembangunan rmakro dibersihkan dengan dG.

Oktaf, 23 byte

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

Cobalah online!

Python 3 , 44 byte

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

Cobalah online!

Mengambil input sebagai parameter fungsi individual.

Brachylog , 5 byte

{⊇Ċ}ᶠ

Cobalah online!

Bagaimana itu bekerja

{⊇Ċ}ᶠ
    ᶠ   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 byte

combn(scan(,''),2)

membaca daftar dari stdin, mengembalikan matriks tempat kolom berpasangan.

Cobalah online!

Python, 53 byte

2 byte disimpan berkat @CalculatorFeline

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

Cobalah online!

Oktaf , 49 48 byte

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

Fungsi anonim yang menghindari built-in ( nchoosek).

Cobalah online!

Penjelasan

x+j*x'menggunakan penyiaran untuk membangun matriks bilangan kompleks di mana bagian nyata dan imajiner adalah semua pasangan titik kode dari input x.

y=triu(...,1)menjaga bagian segitiga atas tidak termasuk diagonal, membuat sisa elemen nol. Hasilnya ditugaskan ke variabel y.

y=(...)(~~y)mempertahankan elemen bukan nol dalam bentuk vektor kolom, yang ditugaskan ke variabel y.

imag(...)dan real(...)mengekstrak bagian nyata dan imajiner.

[... ... ''] mengkonversi kembali ke char untuk membangun output.

Pari / GP , 34 byte

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

Cobalah online!

Python ≥ 2.7, 55 byte

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

repl.it!

Perl 6 , 17 byte

*.combinations(2)

Wah, itu nama metode yang panjang.

Scala, 17 byte

_.combinations(2)

Pyth , 7 4 byte

^{-3 byte terima kasih untuk Leaky Nun !}

.cQ2

Cobalah online!

Ruby , 38 34 24 byte

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

Terima kasih Seims untuk ide yang menyelamatkan 10 byte.

Cobalah online!

JavaScript ES6, 52 byte

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

Jika ada seperti flatMapitu akan menghemat banyak byte.

Python , 55 byte

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

Cobalah online!

Lebih panjang dari jawaban Python lainnya, tetapi menggunakan teknik yang berbeda jadi saya pikir ini layak untuk dikirim.

Japt , 2 byte

à2

Mengujinya ( -Qmenandai untuk tujuan visualisasi saja)

Python, 64 byte

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

Oktaf, 38 byte

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

Jawaban lain untuk menghindari nchoosekbuilt-in.

Cobalah online!

Clojure, 42 byte

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

Mengembalikan set perangkat :)

Python, 74 byte

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

Javascript (ES 5), dari 108 hingga 78 byte

Saya memposting jawaban saya hari ini tetapi saya jelas berjanji untuk tidak menerima jawaban saya sendiri:

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 byte

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

Cobalah online!

Penjelasan

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