Bài tập

Đưa ra hai danh sách các ký tự, xuất sản phẩm Cartesian của họ, tức là danh sách các cặp của mỗi chữ cái từ danh sách đầu tiên với mỗi chữ cái từ danh sách thứ hai.

Thí dụ

"123456"và "abcd"đưa ra:

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

Đầu vào

Hai danh sách các ký tự hoặc chuỗi. Các ký tự được sử dụng sẽ là chữ a-z, A-Z, 0-9và số và một ký tự có thể xuất hiện nhiều lần và trong cả hai đầu vào cùng một lúc.

Đầu ra

Các sản phẩm của Cartesian của danh sách đầu vào. Đó là, một danh sách của mỗi cặp có thể được sắp xếp của một nhân vật từ danh sách đầu tiên và một nhân vật từ danh sách thứ hai. Mỗi cặp là một danh sách hoặc chuỗi hoặc tương tự của hai ký tự hoặc hai chuỗi có độ dài một. Độ dài của đầu ra sẽ bằng với độ dài của đầu vào.

Các cặp phải được liệt kê theo thứ tự; đầu tiên liệt kê ký tự đầu tiên của danh sách đầu tiên với danh sách đầu tiên của danh sách thứ hai, tiếp theo là tất cả các cặp ký tự đầu tiên của danh sách đầu tiên. Cặp cuối cùng bao gồm ký tự cuối cùng của danh sách đầu tiên cùng với ký tự cuối cùng của danh sách thứ hai.

Đầu ra phải là một danh sách các cặp phẳng; không phải là ma trận 2D trong đó các cặp được nhóm theo phần tử thứ nhất hoặc thứ hai của chúng.

Các trường hợp thử nghiệm

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 byte

â

Hãy thử trực tuyến!

Haskell , 12 byte

(<*>).map(,)

Hãy thử trực tuyến!

Toán học, 12 byte

Tuples@{##}&

Lấy hai danh sách các ký tự làm đầu vào.

APL (Dyalog) , 4 byte

,∘.,

Hãy thử trực tuyến!

, làm phẳng

∘. người Cartesian

, ghép

Ruby , 30 18 byte

-12 byte từ Jordan nhắc nhở tôi về cách sử dụng thông số kỹ thuật này cho lợi thế của tôi!

Lấy danh sách các ký tự làm đầu vào.

->a,b{a.product b}

Hãy thử trực tuyến!

Thạch , 1 byte

p

Hãy thử trực tuyến!

Octave, 32 byte

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

Hãy thử trực tuyến!

Tcl , 60 byte

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

Sử dụng:

% 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}

Perl 6 , 4 byte

&[X]

Đây chỉ là một tham chiếu đến toán tử sản phẩm chéo tích hợp X. Nó hoạt động trên danh sách của bất kỳ loại, không chỉ các nhân vật.

JavaScript (ES6), 45 36 34 33 byte

Yêu cầu Firefox. Lấy cả hai đầu vào dưới dạng chuỗi hoặc dưới dạng mảng của các ký tự riêng lẻ.

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

• -1 byte nhờ vào CalculatorFeline phát hiện ra một sai lầm <space>.

Thử nó

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

Điều này có thể được thực hiện với mở rộng cú đúp:

eval echo {$1}{$2}

Hãy thử trực tuyến .

Brachylog , 5 byte

{∋ᵐ}ᶠ

Hãy thử trực tuyến!

Giải trình

Khá tự giải thích

{  }ᶠ       Find all:
  ᵐ           Map:
 ∋              In

QBIC , 29 byte

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

Điều này in các chuỗi 2 char với tất cả các kết hợp trên mỗi dòng.

Giải trình

   ;      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

Bình thường , 3 byte

*ww

Nhân hai chuỗi chỉ đóng vai trò là sản phẩm của cartesian.

Kiểm tra nó trực tuyến!

MATL , 2 byte

Z*

*là toán tử chung cho các sản phẩm và tiền tố Zbiến nó thành sản phẩm cartesian và có thể lấy hai chuỗi làm đối số.

Hãy thử trực tuyến!

Trên thực tế , 1 byte

∙

Hãy thử trực tuyến!

∙ là lệnh sản phẩm của Cartesian.

Ồ , 1 byte

╒

Hãy thử trực tuyến!

Nghĩa đen chỉ là tích hợp

J, 3 byte

,@{

Đây là động từ Danh mục trong J. Chúng ta cần Ravel ( ,) kết quả để làm cho nó 1 chiều.

Hãy thử trực tuyến!

Lisp thông thường, 63 byte

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

Hãy thử trực tuyến!

Clojure, 21 byte

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

PHP , 69 byte

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

Hãy thử trực tuyến!

Python 2 , 39 byte

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

Hãy thử trực tuyến!

Giải pháp thay thế, 34 30 byte

-4 byte nhờ có Anders Kaseorg.

Có tích hợp sẵn cho việc này ...

from itertools import*
product

Cheddar , 52 byte

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

Hãy thử trực tuyến!

05AB1E , 10 byte

v²NFÀ}¹ø)˜

Hãy thử trực tuyến!

Điều này là không có tích hợp, và chắc chắn sẽ không thể cạnh tranh.

Võng mạc , 49 byte

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

Hãy thử trực tuyến! Đưa đầu vào trên các dòng riêng biệt. Giải trình:

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

Mỗi ký tự trong chuỗi đầu tiên tạo ra một dòng riêng được tiền tố bởi chuỗi thứ hai.

¶¶.+
¶

Chuỗi thứ hai ban đầu bị xóa.

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

Đối với mỗi ký tự trong chuỗi đầu tiên, mỗi ký tự trong chuỗi thứ hai sẽ tạo một dòng riêng có tiền tố với ký tự đầu tiên.

¶.¶
¶

Các ký tự còn lại từ chuỗi đầu tiên sẽ bị xóa.

q / kdb +, 5 byte

Giải pháp:

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

Thí dụ:

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

Than , 8 7 byte

ＦθＥη⁺ικ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải thích: Các biến θvà ηngầm định tham chiếu đến hai chuỗi đầu vào. Các Ｆlệnh vòng qua mỗi nhân vật của đầu vào đầu tiên, trong khi Ｅlệnh bản đồ trên mỗi nhân vật của đầu vào thứ hai concatenating biến vòng lặp ιvà biến bản đồ κ, kết quả trong số đó là mặc nhiên được in trên dòng riêng biệt.

R , 29 byte

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

Hãy thử trực tuyến!

Lưu ý rằng ma trận R được điền bởi cột, do đó, kết quả là theo thứ tự được chỉ định bởi spec.

Nếu được phép có factorsđầu vào và đầu ra, có tích hợp ... nhưng người ta cần trích xuất các mức kết quả từ hệ số để cuối cùng nó sẽ có nhiều hơn 29 byte.

R , 11 byte

interaction

Hãy thử trực tuyến!

Japt , 5 2 byte

Japt hiện có một phương pháp cho sản phẩm của Cartesian.

Lấy đầu vào là 2 mảng chuỗi ký tự.

ïV

Thử nó

C # 7, 78 63 byte

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