Ketika diberi daftar nilai dan bilangan bulat positif n, kode Anda harus menampilkan produk cartesian dari daftar dengan nwaktu itu sendiri .

Misalnya, dalam pseudocode fungsi Anda bisa mirip dengan:

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

Contoh:

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

Fungsi bawaan (atau fungsi dari perpustakaan yang diimpor) yang menghitung produk Cartesian (atau daya) tidak diizinkan karena kode yang dihasilkan agak membosankan.

Input dan output harus dibatasi tetapi dapat diambil dengan metode yang masuk akal.

urutan output diberikan tidak masalah tetapi duplikat tidak diperbolehkan.

Ini adalah pertama kalinya saya memposting pertanyaan, jadi jika saya melakukan sesuatu yang salah, tolong beri tahu saya.

Haskell , 21 byte

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

Cobalah online!

Gangguan Umum , 146 byte

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

Cobalah online!

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 byte

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

Cobalah online!

combnjelas bukan produk cartesian bawaan, karena ia menghitung semua n-kombinasi dari inputnya.

R , 40 byte

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

Cobalah online!

expand.grid mungkin merupakan produk bawaan cartesian.

Perl 6 , 16 byte

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

Cobalah

Diperluas:

{  # 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 byte

{x@+!y##x}

Cobalah online!

{ }adalah fungsi dengan argumen xdany

#x panjangnya x

y##xpanjangnya waktu yang xberulangy

!y##x semua panjang-y tupel lebih dari 0,1, ..., panjang (x) -1 sebagai matriks transposisi

+ mengubah urutan

x@elemen xpada indeks tersebut

APL (Dyalog Classic) , 18 12 byte

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

Cobalah online!

-6 byte terima kasih kepada @ngn!

Perl 5 , 33 byte

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

Cobalah online!

Python 2 , 69 58 byte

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

Cobalah online!

Mengambil daftar adan bilangan bulat n; mengembalikan daftar daftar.

Ruby , 53 byte

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

Cobalah online!

Pendekatan rekursif, tidak terlalu pendek, tetapi dijamin bebas dari built-in.

Sangat menggoda untuk menggunakan metode permutasi, tetapi ini mungkin tidak masuk hitungan, dan dokumen sebenarnya tidak menyatakan jaminan kebenaran urutan, meskipun tampaknya bekerja dalam praktik:

Ruby , 35 byte

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

Cobalah online!

Prolog (SWI) , 72 byte

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

Cobalah online!

Racket, 92 byte

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

Cobalah secara Online

Tidak disatukan

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

Jelly , 11 9 7 byte

³;þẎƊ’¡

Cobalah online!

Penjelasan

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

Bash murni (tanpa utilitas eksternal), 57

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

Input diberikan sebagai parameter baris perintah; Pertama adalah n, kedua adalah daftar yang dipisahkan koma.

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

Cobalah online!

Java 10, 19 + 135 = 154 byte

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

Cobalah secara Online

Tidak disatukan

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

Ucapan Terima Kasih

• port ke Java 10 berkat Kevin Cruijssen

Oracle SQL, 177 byte

Buat jenis koleksi (31 byte):

CREATE TYPE t IS TABLE OF INT;

Kemudian gunakan kueri (146 byte):

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

Dengan asumsi bahwa parameter input ada di tabel idengan kolom adan 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 Fiddle

Hasil :

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

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

Cobalah online! Saya menemukan string berulang dan bergabung dengan daftar dengan koma sangat sulit dilakukan di bash.

Javascript (Node) , 75 byte

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

Fungsi rekursif yang menampilkan daftar ke konsol. Di mana aarray kosong dan i0 (tidak yakin apakah ini masih memenuhi syarat):

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

Cobalah online!

JavaScript (SpiderMonkey) , 52 byte

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

Cobalah online!

J , 17 byte

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

Bagaimana itu bekerja?

Saya menghitung semua nangka -digit dalam sistem angka dengan mendasarkan panjang daftar.

            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

Cobalah online!

CJam , 26 byte

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

Cobalah online!

Andai saja CJam memiliki perintah satu karakter untuk produk cartesian dan perataan.

Oktaf , 38 byte

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

Fungsi anonim yang mengambil vektor baris nilai dan integer.

Cobalah online!

Pari / GP , 46 byte

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

Cobalah online!