задача

Учитывая два списка символов, выведите их декартово произведение, то есть список пар каждой буквы из первого списка с каждой буквой из второго списка.

пример

"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 (Дьялог) , 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 байта

,@{

Это глагол каталога в J. Нам нужно Ravel ( ,) результат, чтобы сделать его одномерным.

Попробуйте онлайн!

Common 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 байта благодаря Андерсу Касероргу.

Для этого есть встроенный ...

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

ＦθＥη⁺ικ

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение: Переменные θи ηнеявно ссылаются на две входные строки. Команда Ｆзацикливается на каждом символе первого ввода, в то время как Ｅкоманда отображает каждый символ на втором входе, объединяя переменную цикла и переменную ιmap κ, результат которой неявно печатается в отдельных строках.

R , 29 байт

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

Попробуйте онлайн!

Обратите внимание, что матрица R заполняется столбцом, поэтому результат находится в порядке, определяемом спецификацией.

Если разрешено иметь factorsдля ввода и вывода, есть встроенный ... но нужно извлечь результирующие уровни из фактора, так что в итоге это будет более 29 байтов.

R 11 байт

interaction

Попробуйте онлайн!

Japt , 5 2 байта

У Джапта теперь есть метод для декартового произведения.

Принимает ввод как 2 массива символьных строк.

ïV

Попытайся

C # 7, 78 63 байта

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