Değerler listesi ve pozitif bir tamsayı verildiğinde n, kodunuz listenin kartezyen ürününü kendi nzamanlarıyla çıkarmalıdır .

Örneğin, sözde kodda işleviniz aşağıdakine benzer olabilir:

for x1 in list:
    for x2 in list:
        for x3 in list:
            ...
            for xn in list:
                print x1, x2, x3, ... , xn

Misal:

repeated_cart([1,2,3], 3)

1 1 1  
1 1 2  
1 1 3  
1 2 1  
1 2 2  
1 2 3  
1 3 1  
1 3 2  
1 3 3  
2 1 1  
2 1 2  
2 1 3  
2 2 1  
2 2 2  
2 2 3  
2 3 1  
2 3 2  
2 3 3  
3 1 1  
3 1 2  
3 1 3  
3 2 1  
3 2 2  
3 2 3  
3 3 1  
3 3 2  
3 3 3

Kartezyen ürünü (veya gücü) hesaplayan yerleşik işlevlere (veya içe aktarılan kitaplıklardan gelen işlevlere), sonuçtaki kodun biraz sıkıcı olması nedeniyle izin verilmez.

Girdiler ve çıktılar sınırlandırılmalıdır ancak makul herhangi bir yöntemle alınabilir.

çıkışın verildiği sıra önemli değildir ancak kopyalara izin verilmez.

Bu benim ilk kez bir soru gönderiyorum, bu yüzden çok yanlış bir şey yaptıysam, lütfen söyle.

Haskell , 21 bayt

l#n=mapM(\_->l)[1..n]

Çevrimiçi deneyin!

Ortak Lisp , 146 bayt

(defun f(l n)(if(< n 2)(loop for x in l collect(list x))(loop for a in l nconc(loop for b in(f l(1- n))collect(cons a b)))))(princ(f(read)(read)))

Çevrimiçi deneyin!

ungolfed

(defun nloops (lst n)
  (if (< n 1)
      '(())
      (if (< n 2)
          (loop for x in lst collect (list x))
          (loop for a in lst
                nconc (loop for b in (nloops lst (1- n))
                            collect (cons a b))))))

R , 41 bayt

function(l,n)unique(t(combn(rep(l,n),n)))

Çevrimiçi deneyin!

combnkesinlikle kartezyen bir ürün değildir, çünkü ngirdisinin tüm kombinasyonlarını hesaplar .

R , 40 bayt

function(l,n)expand.grid(rep(list(l),n))

Çevrimiçi deneyin!

expand.grid muhtemelen kartezyen bir üründür.

Perl 6 , 16 bayt

{[X,] $^a xx$^b}

Dene

Expnded:

{  # bare block lambda with placeholder parameters $a and $b

  [X,]         #reduce using Cross meta op combined with comma op

    $^a xx $^b # list repeat $a, by $b times
}

K (ngn / k) , 10 bayt

{x@+!y##x}

Çevrimiçi deneyin!

{ }bağımsız değişkenleri olan bir işlevdir xvey

#x uzunluğu x

y##xxtekrarlanan ysürelerin uzunluğu

!y##x bir transpoze matris olarak 0,1, ..., uzunluk (x) -1 üzerinde tüm uzunluk-y tuples

+ devrik

x@xbu endekslerdeki unsurlar

APL (Dyalog Klasik) , 18 12 bayt

{⍺[↑,⍳⍵⍴≢⍺]}

Çevrimiçi deneyin!

@Ngn sayesinde -6 bayt!

Perl 5 , 33 bayt

say for glob(join',',("{$_}")x<>)

Çevrimiçi deneyin!

Python 2 , 69 58 bayt

f=lambda a,n:n and[v+[i]for v in f(a,n-1)for i in a]or[[]]

Çevrimiçi deneyin!

Bir liste ave bir tam sayı alır n; listelerin bir listesini döndürür.

Yakut , 53 bayt

f=->l,n{n<2?l:l.flat_map{|i|f[l,n-1].map{|j|[i,*j]}}}

Çevrimiçi deneyin!

Özyineli yaklaşım, çok kısa değil, herhangi bir yerleşikten arınmış olduğu garanti edilir.

Permütasyon yöntemlerini kullanmak cazip gelebilir, ancak bu muhtemelen önemli değildir ve dokümanlar, uygulamada işe yarıyor gibi görünse de, siparişin doğruluğunu garanti etmez:

Yakut , 35 bayt

->l,n{[*l.repeated_permutation(n)]}

Çevrimiçi deneyin!

Prolog (SWI) , 72 bayt

R-1-R.
L-N-R:-O is N-1,L-O-M,findall([H|T],(member(H,L),member(T,M)),R).

Çevrimiçi deneyin!

Raket, 92 bayt

(define(f l n)(if(> n 0)(apply append(map(λ(r)(map(λ(e)(cons e r))l))(f l(- n 1))))'(())))

Çevrimiçi Deneyin

Ungolfed

(define (f l n)
    (if (> n 0)
        (apply append
            (map
                (λ (r)
                    (map (λ (e) (cons e r)) l)
                )
                (f l (- n 1))
            )
        )
        '(())
    )
)

Jöle , 11 9 7 bayt

³;þẎƊ’¡

Çevrimiçi deneyin!

açıklama

³;þẎƊ’¡
³;þẎ    **Implements** the cartesian product of a value with the input
    Ɗ   Groups those together
     ’¡ Repeat (n-1) times

Pure Bash (harici yardımcı program yok), 57

printf -vn %0$1d
a=${n//0/{$2\}}
eval echo ${a//\}{/\},{}

Girdi komut satırı parametreleri olarak verilir; 1 n, 2 virgülle ayrılmış bir listedir.

printf -vn %0$1d         ;# Create a string of n "0"s in the variable v
a=${n//0/{$2\}}          ;# Replace each "0" with "{a,b,...m}"
eval echo ${a//\}{/\},{} ;# Replace each "}{" with "},{" and evaluate the resulting brace expansion

Çevrimiçi deneyin!

Java 10, 19 + 135 = 154 bayt

import java.util.*;

List<List>f(Set l,int n){var o=new Stack();if(n<1)o.add(new Stack());else for(var t:l)for(var i:f(l,n-1)){i.add(t);o.add(i);}return o;}

Çevrimiçi Deneyin

Ungolfed

List<List> f(Set l, int n) {
    var o = new Stack();
    if (n < 1)
        o.add(new Stack());
    else
        for (var t : l)
            for (var i : f(l, n - 1)) {
                i.add(t);
                o.add(i);
            }
    return o;
}

Teşekkür

• Cruijssen sayesinde Java'ya 10 numaralı liman

Oracle SQL, 177 bayt

Bir koleksiyon türü oluşturun (31 bayt):

CREATE TYPE t IS TABLE OF INT;

Ardından sorguyu kullanın (146 bayt):

WITH n(a,b,c)AS(SELECT a,b,t()FROM i UNION ALL SELECT a,b-1,c MULTISET UNION t(COLUMN_VALUE)FROM n,TABLE(n.a)WHERE b>=0)SELECT c FROM n WHERE b=0

Giriş parametrelerinin aşağıdaki tabloda isütunlarla ave varsa b:

CREATE TABLE i (a t,b INT) NESTED TABLE a STORE AS t_a;
INSERT INTO i VALUES ( t(1,2,3), 3 );

SQL Keman

Sonuçlar :

|     C |
|-------|
| 1,1,1 |
| 1,1,2 |
| 1,1,3 |
| 1,2,1 |
| 1,2,2 |
| 1,2,3 |
| 1,3,1 |
| 1,3,2 |
| 1,3,3 |
| 2,1,1 |
| 2,1,2 |
| 2,1,3 |
| 2,2,1 |
| 2,2,2 |
| 2,2,3 |
| 2,3,1 |
| 2,3,2 |
| 2,3,3 |
| 3,1,1 |
| 3,1,2 |
| 3,1,3 |
| 3,2,1 |
| 3,2,2 |
| 3,2,3 |
| 3,3,1 |
| 3,3,2 |
| 3,3,3 |

Bash , 61 bayt

N=$1
shift
IFS=,
printf echo\\t%${N}s ""|sed "s/ /{$*},/g"|sh

Çevrimiçi deneyin! Ben dizeleri tekrar ve bash yapmak şaşırtıcı derecede zor virgül ile katılmadan listeleri bulundu.

Javascript (Düğüm) , 75 bayt

c=(m,n,a,i)=>a.length-n?m.map((_,j)=>c(m,n,[...a,m[j]],i+1)):console.log(a)

Listeyi konsola gönderen özyinelemeli işlev. Nerede aboş bir dizidir ve i(değil emin bu hala nitelendirir ise) 0:

c([1,2,3], 3, [], 0);

Çevrimiçi deneyin!

JavaScript (SpiderMonkey) , 52 bayt

c=>g=(n,...l)=>n?c.map(w=>g(n-1,...l,w)):print(...l)

Çevrimiçi deneyin!

J , 17 bayt

]{~(##)#:#@]i.@^[

Nasıl çalışır?

nListenin uzunluğunu temel alan bir sayı sistemindeki tüm -digit sayılarını numaralandırıyorum.

            i.         - creates a list from zero to (not including)
         #@]           - the length of the list 
              @^       - to the power of
                [      - n (left argument)
   (##)                - creates a list of n times the length of the list (for the bases)
       #:              - converts all the numbers into lists of digits in the new base
]{~                    - use the digits as indices into the list

Çevrimiçi deneyin!

CJam , 26 bayt

q~(_"m*:e_"*\'_*@\~W$~:p];

Çevrimiçi deneyin!

Sadece CJam'in kartezyen ürün ve düzleştirme için bir karakter komutu varsa.

Oktav , 38 bayt

@(x,n)x(dec2base(0:n^numel(x)-1,n)-47)

Değerlerin bir satır vektörünü ve bir tamsayıyı alan anonim işlev.

Çevrimiçi deneyin!

Pari / GP , 46 bayt

(l,n)->matrix(#l^n,n,i,j,l[i--\#l^(n-j)%#l+1])

Çevrimiçi deneyin!