Görev

İki karakter listesi verildiğinde, Kartezyen ürünlerini, yani ilk listeden her harfin ikinci listeden her harfle eşleşmelerinin listesini çıkarın.

Misal

"123456"ve "abcd"verin:

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

Giriş

İki karakter veya dize listesi. Kullanılan karakterler alfasayısal olacak a-z, A-Z, 0-9ve bir karakter hem birden çok kez hem de her iki girişte aynı anda oluşabilir.

Çıktı

Giriş listelerinin Kartezyen ürünü. Yani, ilk listeden bir sırayla bir karakter çiftinin ve ikinci listeden bir karakterin sıralı listesi. Her çift, iki karakterden veya iki uzunluk bir dizeden oluşan bir liste veya dize veya benzeridir. Çıktının uzunluğu, girdilerin uzunluklarının çarpımına eşit olacaktır.

Çiftler sırayla listelenmelidir; ilk önce birinci listenin ilk karakterini ikinci listenin ilki ile listelemek, ardından ilk listenin ilk karakterinin tüm eşleşmelerini izlemek. Son çift, ikinci listenin son karakteri ile birlikte ilk listenin son karakterinden oluşur.

Çıktı, düz bir çift listesi olmalıdır; çiftlerin birinci veya ikinci elemanlarına göre gruplandırıldığı bir 2D matris değil.

Test senaryoları

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 bayt

â

Çevrimiçi deneyin!

Haskell , 12 bayt

(<*>).map(,)

Çevrimiçi deneyin!

Mathematica, 12 bayt

Tuples@{##}&

Girdi olarak iki karakter listesi alır.

APL (Dyalog) , 4 bayt

,∘.,

Çevrimiçi deneyin!

, düzleştirmek

∘. Kartezyen

, birbirine bağlama

Yakut , 30 18 bayt

Ürdün'den -12 bayt, bana avantajı kullanmanın bir yolunu hatırlatıyor!

Girdi olarak karakter listelerini alır.

->a,b{a.product b}

Çevrimiçi deneyin!

Perl 6 , 4 bayt

&[X]

Bu sadece yerleşik çapraz ürün operatörü için bir referanstır X. Sadece karakterlerde değil, her tür listede çalışır.

Jöle , 1 bayt

p

Çevrimiçi deneyin!

Oktav, 32 bayt

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

Çevrimiçi deneyin!

Tcl , 60 bayt

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

kullanın:

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

Firefox gerektirir. Her iki girişi de dize olarak veya tek tek karakter dizileri olarak alır.

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

• Bir hatalıyı tespit eden CalculatorFeline sayesinde -1 bayt <space>.

Dene

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

Bu küme ayracı genişletmeleri ile yapılabilir:

eval echo {$1}{$2}

Çevrimiçi deneyin .

Brachylog , 5 bayt

{∋ᵐ}ᶠ

Çevrimiçi deneyin!

açıklama

Oldukça açıklayıcı

{  }ᶠ       Find all:
  ᵐ           Map:
 ∋              In

QBIC , 29 bayt

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

Bu, tüm kombinasyonların her birinde bir satır bulunan 2 karakterlik dizeler yazdırır.

açıklama

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

*ww

İki dizeyi çarpmak sadece kartezyen ürün gibi davranır.

Çevrimiçi test edin!

Matl , 2 bayt

Z*

* ürünler ve önek için genel operatördür Z kartezyen ürün yapar ve iki dizeyi argüman olarak alabilir.

Çevrimiçi deneyin!

Aslında 1 bayt

∙

Çevrimiçi deneyin!

∙ Kartezyen ürün komutudur.

Ohm , 1 bayt

╒

Çevrimiçi deneyin!

Kelimenin tam anlamıyla sadece yerleşik

J, 3 bayt

,@{

Bu, J'deki Katalog fiilidir ,. 1 boyutlu hale getirmek için sonucu Ravel ( ) yapmamız gerekir .

Çevrimiçi deneyin!

Ortak Lisp, 63 bayt

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

Çevrimiçi deneyin!

Clojure, 21 bayt

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

PHP , 69 bayt

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

Çevrimiçi deneyin!

Python 2 , 39 bayt

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

Çevrimiçi deneyin!

Alternatif çözüm, 34 30 bayt

- Anders Kaseorg sayesinde 4 byte.

Bunun için yerleşik bir ...

from itertools import*
product

Çedar , 52 bayt

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

Çevrimiçi deneyin!

05AB1E , 10 bayt

v²NFÀ}¹ø)˜

Çevrimiçi deneyin!

Bu yerleşik değildir ve şüphesiz rekabetçi olmayacaktır.

Retina , 49 bayt

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

Çevrimiçi deneyin! Ayrı satırlarda girdi alır. Açıklama:

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

İlk dizgideki her karakter, ikinci dizginin önüne ek olarak ayrı bir satır oluşturur.

¶¶.+
¶

Orijinal ikinci dize silinir.

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

İlk dizgideki her karakter için, ikinci dizgideki her karakter, ilk karakterle önek olarak ayrılmış ayrı bir satır oluşturur.

¶.¶
¶

İlk dizeden kalan karakterler silinir.

q / kdb +, 5 bayt

Çözüm:

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

Misal:

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

Kömür , 8 7 bayt

ＦθＥη⁺ικ

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Açıklama: Değişkenler θve ηdolaylı olarak iki giriş dizesine atıfta bulunur. Ｆİse komut, birinci girişin her karakter üzerinde döngüler Ｅkomut döngüsü değişken bitiştirme ikinci girişin her karakter üzerinde haritalar ιve harita değişken κdolaylı olarak, farklı çizgileri üzerine basılır bunun sonucu.

R , 29 bayt

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

Çevrimiçi deneyin!

R matrisinin sütunla doldurulduğunu unutmayın, bu nedenle sonuç, spesifikasyon tarafından dikte edilen sıradadır.

factorsGiriş ve çıkış için izin verilirse , bir yerleşik vardır ... ancak sonuç düzeylerini faktörden çıkarması gerekir, böylece sonunda 29 bayttan fazla olur.

R , 11 bayt

interaction

Çevrimiçi deneyin!

Japt , 5 2 bayt

Japt'un artık Kartezyen ürün için bir yöntemi var.

Girdiyi karakter dizgilerinin 2 dizisi olarak alır.

ïV

Dene

C # 7, 78 63 bayt

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