Завдання

Давши два списки символів, виведіть їх декартовий твір, тобто список пар кожної літери з першого списку з кожною літерою з другого списку.

Приклад

"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і символ може виникати як багаторазово, так і на обох входах одночасно.

Вихідні дані

Декартовий добуток вхідних списків. Тобто, список кожної можливої ​​впорядкованої пари символів з першого списку та символу з другого списку. Кожна пара - це список або рядок або схожий з двох символів, або з двох рядків довжиною-однією. Довжина виходу буде дорівнює добутку довжин входів.

Пари повинні бути вказані в порядку; спочатку перераховується перший символ першого списку з першим з другого списку, далі всі пари першого символу першого списку. Остання пара складається з останнього символу першого списку разом з останнім символом другого списку.

Вихід повинен бути плоским списком пар; не є двовимірною матрицею, де пари групуються за своїм першим або другим елементом.

Тестові справи

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(,)

Спробуйте в Інтернеті!

Математика, 12 байт

Tuples@{##}&

В якості введення бере два списки символів.

APL (Dyalog) , 4 байти

,∘.,

Спробуйте в Інтернеті!

, сплющити

∘. декартовий

, конкатенація

Рубін , 30 18 байт

-12 байт з Йорданії, що нагадує мені про те, як використовувати специфікацію на мою користь!

Візьме списки символів як вхідні дані.

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

Баш, 18

Це можна зробити за допомогою розширень дужок:

eval echo {$1}{$2}

Спробуйте в Інтернеті .

Брахілог , 5 байт

{∋ᵐ}ᶠ

Спробуйте в Інтернеті!

Пояснення

Досить самозрозумілий

{  }ᶠ       Find all:
  ᵐ           Map:
 ∋              In

QBIC , 29 байт

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

Це друкує 2-х рядкові рядки з усіма комбінаціями по одному рядку.

Пояснення

   ;      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 байти

,@{

Це дієслово Catalog у J. Нам потрібно Ravel ( ,) отримати результат, щоб зробити його 1 розмірним.

Спробуйте в Інтернеті!

Лист звичайний, 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 байти завдяки Андерсу Касеоргу.

Для цього є вбудований ...

from itertools import*
product

Чеддар , 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)))})";