งาน:

ส่งคืนอาร์เรย์ที่มีคู่ที่เป็นไปได้ทั้งหมดระหว่างองค์ประกอบของอาร์เรย์

ตัวอย่าง

จากผลตอบแทน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"][("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]

ลองออนไลน์!

ด้านนอก ( 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

คำอธิบาย

ก่อนอื่นต่อAX<esc>ท้ายXอินพุตเพื่อจัดการอินพุต 2 ความยาวซึ่งจำเป็นสำหรับเหตุผลที่ชัดเจนในไม่ช้า

จากนั้นแมโครแบบเรียกซ้ำตัวแรกของฟอร์ม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, และบรรทัดที่ว่างเปล่าในตอนท้ายที่เหลือเป็นผลมาจากการก่อสร้างของแมโครจะทำความสะอาดด้วยrdG

อ็อกเทฟ 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 ไบต์

บันทึก 2 ไบต์ด้วย @CalculatorFeline

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) '']

ฟังก์ชั่นไม่ระบุชื่อที่หลีกเลี่ยง built-in ( nchoosek)

ลองออนไลน์!

คำอธิบาย

x+j*x'xใช้กระจายเสียงเพื่อสร้างเมทริกซ์ของตัวเลขที่ซับซ้อนที่ชิ้นส่วนจริงและจินตภาพคู่ทุกจุดรหัสจากการป้อนข้อมูลที่

y=triu(...,1)เก็บส่วนที่เป็นรูปสามเหลี่ยมไว้ด้านบนยกเว้นเส้นทแยงมุมทำให้องค์ประกอบที่เหลือเป็นศูนย์ yผลที่ได้คือกำหนดให้กับตัวแปร

y=(...)(~~y)yยังคงมีเลของค์ประกอบในรูปแบบของเวกเตอร์คอลัมน์ซึ่งได้รับมอบหมายให้ตัวแปร

imag(...)และreal(...)แยกส่วนที่แท้จริงและจินตภาพ

[... ... ''] แปลงกลับเป็นถ่านเพื่อสร้างผลลัพธ์

Pari / 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)

นั่นเป็นชื่อวิธียาว

สกาลา, 17 ไบต์

_.combinations(2)

Pyth , 7 4 ไบต์

^{-3 ไบต์ขอบคุณLeaky Nun !}

.cQ2

ลองออนไลน์!

Ruby , 38 34 24 ไบต์

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

ขอบคุณ Seims สำหรับแนวคิดที่บันทึกไว้ 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 อื่น ๆ แต่ใช้เทคนิคที่แตกต่างกันดังนั้นฉันคิดว่ามันคุ้มค่าที่จะโพสต์

Japtap , 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