Zadanie

Biorąc pod uwagę dwie listy znaków, wypisz ich iloczyn kartezjański, tj. Listę par każdej litery z pierwszej listy z każdą literą z drugiej listy.

Przykład

"123456"i "abcd"podaj:

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

Wejście

Dwie listy znaków lub ciągów. Używane znaki będą alfanumeryczne, a-z, A-Z, 0-9a znak może występować zarówno wielokrotnie, jak i na obu wejściach jednocześnie.

Wynik

Iloczyn kartezjański list wejściowych. To jest lista każdej możliwej uporządkowanej pary znaku z pierwszej listy i znaku z drugiej listy. Każda para jest listą lub łańcuchem lub podobnym składającym się z dwóch znaków lub dwóch łańcuchów o długości jeden. Długość wyjściowa będzie równa iloczynowi długości wejściowych.

Pary muszą być wymienione w kolejności; najpierw wyświetla pierwszy znak pierwszej listy z pierwszą z drugiej listy, a następnie wszystkie pary pierwszego znaku z pierwszej listy. Ostatnia para składa się z ostatniego znaku pierwszej listy wraz z ostatnim znakiem drugiej listy.

Wynikiem musi być płaska lista par; nie macierz 2D, w której pary są pogrupowane według pierwszego lub drugiego elementu.

Przypadki testowe

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 bajt

â

Wypróbuj online!

Haskell , 12 bajtów

(<*>).map(,)

Wypróbuj online!

Mathematica, 12 bajtów

Tuples@{##}&

Pobiera na wejściu dwie listy znaków.

APL (Dyalog) , 4 bajty

,∘.,

Wypróbuj online!

, spłaszczyć

∘. kartezjański

, powiązanie

Rubinowy , 30 18 bajtów

-12 bajtów z Jordanii, przypominając mi o sposobie wykorzystania specyfikacji na moją korzyść!

Pobiera listy znaków jako dane wejściowe.

->a,b{a.product b}

Wypróbuj online!

Perl 6 , 4 bajty

&[X]

Jest to tylko odniesienie do wbudowanego operatora wielu produktów X. Działa na listach wszelkiego rodzaju, nie tylko postaciach.

Galaretka , 1 bajt

p

Wypróbuj online!

Oktawa, 32 bajty

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

Wypróbuj online!

Tcl , 60 bajtów

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

Posługiwać się:

% 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 bajtów

Wymaga przeglądarki Firefox. Pobiera oba dane wejściowe jako ciągi znaków lub tablice poszczególnych znaków.

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

• -1 bajt dzięki CalculatorFeline wykrywającej błąd <space>.

Spróbuj

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 lat

Można to zrobić za pomocą rozszerzeń nawiasów:

eval echo {$1}{$2}

Wypróbuj online .

Brachylog , 5 bajtów

{∋ᵐ}ᶠ

Wypróbuj online!

Wyjaśnienie

Dość oczywiste

{  }ᶠ       Find all:
  ᵐ           Map:
 ∋              In

QBIC , 29 bajtów

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

Drukuje ciągi 2-znakowe ze wszystkimi kombinacjami w jednym wierszu.

Wyjaśnienie

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

*ww

Pomnożenie dwóch łańcuchów działa jak produkt kartezjański.

Przetestuj online!

MATL , 2 bajty

Z*

*jest ogólnym operatorem produktów, a przedrostek Zoznacza, że ​​jest to produkt kartezjański i może przyjmować dwa ciągi argumentów.

Wypróbuj online!

Właściwie 1 bajt

∙

Wypróbuj online!

∙ to polecenie produktu kartezjańskiego.

Ohm , 1 bajt

╒

Wypróbuj online!

Dosłownie tylko wbudowane

J, 3 bajty

,@{

To jest czasownik z katalogu w J. Musimy Ravel ( ,) wynik, aby uczynić go jednowymiarowym.

Wypróbuj online!

Common Lisp, 63 bajty

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

Wypróbuj online!

Clojure, 21 bajtów

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

PHP , 69 bajtów

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

Wypróbuj online!

Python 2 , 39 bajtów

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

Wypróbuj online!

Alternatywne rozwiązanie, 34 30 bajtów

-4 bajty dzięki Andersowi Kaseorgowi.

Jest wbudowany w to ...

from itertools import*
product

Cheddar , 52 bajty

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

Wypróbuj online!

05AB1E , 10 bajtów

v²NFÀ}¹ø)˜

Wypróbuj online!

Jest to bez wbudowanego i niewątpliwie nie będzie konkurencyjne.

Siatkówka , 49 bajtów

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

Wypróbuj online! Pobiera dane w osobnych wierszach. Wyjaśnienie:

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

Każdy znak w pierwszym ciągu generuje oddzielną linię poprzedzoną drugim ciągiem.

¶¶.+
¶

Oryginalny drugi ciąg zostaje usunięty.

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

Dla każdego znaku w pierwszym ciągu każdy znak w drugim ciągu generuje osobny wiersz poprzedzony pierwszym znakiem.

¶.¶
¶

Pozostałe znaki z pierwszego ciągu są usuwane.

q / kdb +, 5 bajtów

Rozwiązanie:

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

Przykład:

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

Węgiel , 8 7 bajtów

ＦθＥη⁺ικ

Wypróbuj online! Link jest do pełnej wersji kodu. Objaśnienie: Zmienne θi ηpośrednio odnoszą się do dwóch ciągów wejściowych. ＦKomenda pętle nad każdym charakterem pierwszego wejścia, natomiast Ｅkomenda odwzorowuje nad każdym charakterze drugiego wejścia łącząc zmiennej pętli ιa zmienna mapa κ, którego rezultatem jest domyślnie drukowane na oddzielnych liniach.

R , 29 bajtów

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

Wypróbuj online!

Zauważ, że macierz R jest wypełniana według kolumn, więc wynik jest w kolejności podanej przez specyfikację.

Jeśli pozwala się factorsna wejście i wyjście, jest wbudowany ... ale trzeba wyodrębnić wynikowe poziomy z czynnika, aby ostatecznie przekroczył 29 bajtów.

R 11 bajtów

interaction

Wypróbuj online!

Japt , 5 2 bajty

Japt ma teraz metodę dla produktu kartezjańskiego.

Pobiera dane wejściowe jako 2 tablice ciągów znaków.

ïV

Spróbuj

C # 7, 78 63 bajtów

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