งาน

ให้รายชื่อตัวละครสองตัวส่งออกผลิตภัณฑ์คาร์ทีเซียนของพวกเขานั่นคือรายการของการจับคู่ของตัวอักษรแต่ละตัวจากรายการแรกที่มีตัวอักษรแต่ละตัวจากรายการที่สอง

ตัวอย่าง

"123456"และ"abcd"ให้:

[["1","a"],["1","b"],["1","c"],["1","d"],["2","a"],["2","b"],["2","c"],["2","d"],["3","a"],["3","b"],["3","c"],["3","d"],["4","a"],["4","b"],["4","c"],["4","d"],["5","a"],["5","b"],["5","c"],["5","d"],["6","a"],["6","b"],["6","c"],["6","d"]]

อินพุต

รายการอักขระหรือสตริงสองรายการ อักขระที่ใช้จะเป็นตัวอักษรa-z, A-Z, 0-9และตัวเลขและอักขระสามารถเกิดขึ้นได้หลายครั้งและในอินพุตทั้งสองในเวลาเดียวกัน

เอาท์พุต

ผลิตภัณฑ์คาร์ทีเซียนของรายการอินพุต นั่นคือรายการของแต่ละคู่ที่เป็นไปได้สั่งตัวละครจากรายการแรกและตัวละครจากรายการที่สอง แต่ละคู่เป็นรายการหรือสตริงหรือคล้ายกันของตัวละครสองตัวหรือสองสายยาวหนึ่ง ความยาวของเอาต์พุตจะเท่ากับผลคูณของความยาวของอินพุต

คู่จะต้องอยู่ในลำดับ; รายการแรกอักขระแรกของรายการแรกกับรายการแรกของรายการที่สองตามด้วยการจับคู่ทั้งหมดของอักขระแรกของรายการแรก คู่สุดท้ายประกอบด้วยอักขระตัวสุดท้ายของรายการแรกพร้อมกับอักขระตัวสุดท้ายของรายการที่สอง

ผลลัพธ์จะต้องเป็นรายการคู่เรียบ ไม่ใช่เมทริกซ์ 2D ที่คู่ถูกจัดกลุ่มตามองค์ประกอบที่หนึ่งหรือสอง

กรณีทดสอบ

inputs               output

"123456", "abcd"     [["1","a"],["1","b"],["1","c"],["1","d"],["2","a"],["2","b"],["2","c"],["2","d"],["3","a"],["3","b"],["3","c"],["3","d"],["4","a"],["4","b"],["4","c"],["4","d"],["5","a"],["5","b"],["5","c"],["5","d"],["6","a"],["6","b"],["6","c"],["6","d"]]
"abc", "123"         [["a","1"],["a","2"],["a","3"],["b","1"],["b","2"],["b","3"],["c","1"],["c","2"],["c","3"]]
"aa", "aba"          [["a","a"],["a","b"],["a","a"],["a","a"],["a","b"],["a","a"]]

05AB1E , 1 ไบต์

â

ลองออนไลน์!

Haskellขนาด 12 ไบต์

(<*>).map(,)

ลองออนไลน์!

Mathematica ขนาด 12 ไบต์

Tuples@{##}&

ใช้อักขระสองรายการเป็นอินพุต

APL (Dyalog) 4 ไบต์

,∘.,

ลองออนไลน์!

, เรียบ

∘. คาร์ทีเซียน

, เรียงต่อกัน

Ruby , 30 18 ไบต์

-12 bytes จาก Jordan ทำให้ฉันนึกถึงวิธีการใช้ spec เพื่อประโยชน์ของฉัน!

ใช้รายการอักขระเป็นอินพุต

->a,b{a.product b}

ลองออนไลน์!

Perl 6 , 4 ไบต์

&[X]

Xนี่เป็นเพียงการอ้างอิงถึงในตัวผู้ประกอบการสินค้าข้าม มันใช้งานได้กับรายการทุกประเภทไม่เพียงแค่ตัวละคร

เยลลี่ 1 ไบต์

p

ลองออนไลน์!

อ็อกเทฟ 32 ไบต์

@(a,b)[(a+~b')(:) (b'+~a)(:) '']

ลองออนไลน์!

Tcl , 60 ไบต์

proc p x\ y {lmap X $x {lmap Y $y {lappend l $X\ $Y}};set l}

ใช้:

% p {1 2 3} {a 2 2}
{1 a} {1 2} {1 2} {2 a} {2 2} {2 2} {3 a} {3 2} {3 2}

JavaScript (ES6), 45 36 34 33 ไบต์

ต้องใช้ Firefox รับอินพุตทั้งสองเป็นสตริงหรือเป็นอาร์เรย์ของอักขระแต่ละตัว

a=>b=>[for(x of a)for(y of b)x+y]

• -1 ขอบคุณไบต์CalculatorFeline<space>จำหลงทาง

ลองมัน

f=
a=>b=>[for(x of a)for(y of b)x+y]
oninput=_=>console.clear()&console.log(f(i.value)(j.value))
console.log(f(i.value="123456")(j.value="abcd"))

<input id=i><input id=j>

Bash, 18

สิ่งนี้สามารถทำได้ด้วยการขยายรั้ง:

eval echo {$1}{$2}

ลองมันออนไลน์

Brachylogขนาด 5 ไบต์

{∋ᵐ}ᶠ

ลองออนไลน์!

คำอธิบาย

สวยอธิบายตนเอง

{  }ᶠ       Find all:
  ᵐ           Map:
 ∋              In

QBIC , 29 ไบต์

[_l;||[_l;||?_sA,a,1|+_sB,b,1

สิ่งนี้พิมพ์สตริง 2-char ที่มีชุดค่าผสมทั้งหมดในหนึ่งบรรทัด

คำอธิบาย

   ;      Read in string A$
 _l |     Get its length as b
[    |    and kick off a FOR-loop from 1 to that
[_l;||    Do the same for B$
          Note that, while the FOR-loop may pass this code several times, the
          'read-from cmd line' is done only once.
?_sA,a,1| PRINT the character from A$ at the position of the 'a' loop counter
+_sB,a,1   concatenated with the char from B$ at the pos of the 'b' loop counter

Pyth , 3 ไบต์

*ww

การคูณสองสตริงทำหน้าที่เป็นผลิตภัณฑ์คาร์ทีเซียน

ทดสอบออนไลน์!

MATL , 2 ไบต์

Z*

*เป็นผู้ดำเนินการทั่วไปสำหรับผลิตภัณฑ์และส่วนนำหน้าZทำให้เป็นผลิตภัณฑ์คาร์ทีเซียนและสามารถใช้สองสตริงเป็นอาร์กิวเมนต์

ลองออนไลน์!

ที่จริงแล้ว 1 ไบต์

∙

ลองออนไลน์!

∙ คือคำสั่งผลิตภัณฑ์คาร์ทีเซียน

โอห์ม 1 ไบต์

╒

ลองออนไลน์!

แท้จริงในตัวเท่านั้น

J, 3 ไบต์

,@{

นี่คือกริยาของแคตตาล็อกใน J เราต้อง Ravel ( ,) ผลลัพธ์เพื่อให้เป็น 1 มิติ

ลองออนไลน์!

Lisp ทั่วไป, 63 ไบต์

(lambda(a b)(mapcan(lambda(x)(mapcar(lambda(y)(list x y))b))a))

ลองออนไลน์!

Clojure 21 ไบต์

#(for[i % j %2][i j])

PHP , 69 ไบต์

<?foreach($_GET[0]as$x)foreach($_GET[1]as$y)$r[]=[$x,$y];print_r($r);

ลองออนไลน์!

Python 2 , 39 ไบต์

lambda x,y:[[i,j]for i in x for j in y]

ลองออนไลน์!

โซลูชันสำรอง34 30 ไบต์

-4 ไบต์ขอบคุณ Anders Kaseorg

มีแบบในตัวสำหรับสิ่งนี้ ...

from itertools import*
product

Cheddar , 52 ไบต์

a->b->a.chars.map(i->b.chars.map(i&(+))).reduce((+))

ลองออนไลน์!

05AB1E , 10 ไบต์

v²NFÀ}¹ø)˜

ลองออนไลน์!

นี่คือไม่มีในตัวและไม่ต้องสงสัยจะไม่แข่งขัน

เรติน่า 49 ไบต์

.(?=.*¶(.+))
$1$&¶
¶¶.+
¶
.(?=.*(.)¶)
$1$&¶
¶.¶
¶

ลองออนไลน์! ใช้อินพุตในบรรทัดแยกกัน คำอธิบาย:

.(?=.*¶(.+))
$1$&¶

อักขระแต่ละตัวในสตริงแรกสร้างบรรทัดแยกที่นำหน้าด้วยสตริงที่สอง

¶¶.+
¶

สายอักขระที่สองเดิมจะถูกลบ

.(?=.*(.)¶)
$1$&¶

สำหรับอักขระแต่ละตัวในสตริงแรกอักขระแต่ละตัวในสตริงที่สองจะสร้างบรรทัดแยกที่นำหน้าด้วยอักขระตัวแรก

¶.¶
¶

อักขระซ้ายจากสตริงแรกจะถูกลบ

q / kdb +, 5 ไบต์

วิธีการแก้:

cross           / yup, there's a built-in to do exactly this

ตัวอย่าง:

q)"123456"cross"abcd"
"1a"
"1b"
"1c"
"1d"
"2a"
"2b"
"2c"
"2d"
"3a"
"3b"
"3c"
"3d"
"4a"
"4b"
...etc

ถ่าน , 8 7 ไบต์

ＦθＥη⁺ικ

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย: ตัวแปรθและηอ้างอิงถึงสองสายอินพุตโดยปริยาย Ｆคำสั่งลูปมากกว่าลักษณะของการป้อนข้อมูลแต่ละครั้งแรกในขณะที่Ｅคำสั่งแผนที่มากกว่าลักษณะของการป้อนข้อมูลที่เชื่อมโยงสองตัวแปรห่วงแต่ละιที่และตัวแปรแผนที่κ, ผลจากการที่มีการพิมพ์โดยปริยายในบรรทัดแยกกัน

R , 29 ไบต์

function(x,y)outer(x,y,paste)

ลองออนไลน์!

โปรดทราบว่าเมทริกซ์ R จะเต็มไปด้วยคอลัมน์ดังนั้นผลลัพธ์จะอยู่ในลำดับที่กำหนดโดยข้อมูลจำเพาะ

หากได้รับอนุญาตให้มีfactorsอินพุทและเอาท์พุทจะมีบิวท์อิน ... แต่มีความต้องการที่จะดึงระดับผลลัพธ์ที่ได้จากปัจจัยดังนั้นในท้ายที่สุดมันจะมากกว่า 29 ไบต์

R , 11 ไบต์

interaction

ลองออนไลน์!

Japt , 5 2 ไบต์

ตอนนี้ Japt มีวิธีการสำหรับผลิตภัณฑ์คาร์ทีเซียน

รับอินพุตเป็น 2 อาร์เรย์ของสตริงอักขระ

ïV

ลองมัน

C # 7, 78 63 ไบต์

(a,b)=>$"({string.Join(",",a.SelectMany(x=>b,(x,y)=>(x,y)))})";