Gdy otrzymasz listę wartości i dodatnią liczbę całkowitą n, twój kod powinien wypisać iloczyn kartezjański listy razem z nczasem.

Na przykład w pseudokodzie funkcja może być podobna do:

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

Przykład:

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

Wbudowane funkcje (lub funkcje z importowanych bibliotek), które obliczają iloczyn kartezjański (lub moc) są niedozwolone, ponieważ wynikowy kod jest nieco nudny.

Wejścia i wyjścia powinny być ograniczone, ale można je przyjąć dowolną rozsądną metodą.

kolejność danych wyjściowych nie ma znaczenia, ale duplikaty nie są dozwolone.

Po raz pierwszy zadaję pytanie, więc jeśli zrobiłem coś okropnie złego, proszę, powiedz mi.

Haskell , 21 bajtów

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

Wypróbuj online!

Common Lisp , 146 bajtów

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

Wypróbuj online!

bez golfa

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

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

Wypróbuj online!

combnzdecydowanie nie jest wbudowanym produktem kartezjańskim, ponieważ oblicza wszystkie nkombinacje danych wejściowych.

R , 40 bajtów

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

Wypróbuj online!

expand.grid jest prawdopodobnie wbudowanym produktem kartezjańskim.

Perl 6 , 16 bajtów

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

Spróbuj

Wydane:

{  # 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 bajtów

{x@+!y##x}

Wypróbuj online!

{ }jest funkcją z argumentami xiy

#x długość x

y##xdługość xpowtarzanych yczasów

!y##x wszystkie krotki długości y powyżej 0,1, ..., długość (x) -1 jako transponowana macierz

+ transponować

x@elementy xtych wskaźników

APL (Dyalog Classic) , 18 12 bajtów

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

Wypróbuj online!

-6 bajtów dzięki @ngn!

Perl 5 , 33 bajtów

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

Wypróbuj online!

Python 2 , 69 58 bajtów

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

Wypróbuj online!

Pobiera listę ai liczbę całkowitą n; zwraca listę list.

Rubin , 53 bajty

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

Wypróbuj online!

Podejście rekurencyjne, nie tak krótkie, ale z pewnością pozbawione jakichkolwiek wbudowanych elementów.

Kuszące jest stosowanie metod permutacji, ale to chyba się nie liczy, a dokumenty faktycznie nie podają żadnych gwarancji poprawności zamówienia, choć wydaje się, że działa w praktyce:

Rubin , 35 bajtów

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

Wypróbuj online!

Prolog (SWI) , 72 bajty

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

Wypróbuj online!

Rakieta, 92 bajty

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

Wypróbuj online

Nie golfił

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

Galaretka , 11 9 7 bajtów

³;þẎƊ’¡

Wypróbuj online!

Wyjaśnienie

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

Pure Bash (bez zewnętrznych narzędzi), 57

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

Dane wejściowe podano jako parametry wiersza polecenia; 1st is n, 2nd to lista rozdzielona przecinkami.

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

Wypróbuj online!

Java 10, 19 + 135 = 154 bajtów

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

Wypróbuj online

Nie golfił

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

Podziękowanie

• przenieś na Javę 10 dzięki Kevin Cruijssen

Oracle SQL, 177 bajtów

Utwórz typ kolekcji (31 bajtów):

CREATE TYPE t IS TABLE OF INT;

Następnie użyj zapytania (146 bajtów):

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

Zakładając, że parametry wejściowe znajdują się w tabeli iz kolumnami ai 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

Wyniki :

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

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

Wypróbuj online! Znalazłem powtarzanie ciągów i łączenie list przecinkami zaskakująco trudne do zrobienia w bash.

JavaScript (węzeł) , 75 bajtów

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

Funkcja rekurencyjna, która wysyła listę do konsoli. Gdzie ajest pusta tablica i iwynosi 0 (nie jestem pewien, czy nadal się kwalifikuje):

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

Wypróbuj online!

JavaScript (SpiderMonkey) , 52 bajty

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

Wypróbuj online!

J , 17 bajtów

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

Jak to działa?

nWyliczam wszystkie cyfry-cyfry w systemie liczbowym o podstawie długości listy.

            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

Wypróbuj online!

CJam , 26 bajtów

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

Wypróbuj online!

Gdyby tylko CJam miał jeden znak polecenia dla kartezjańskiego produktu i spłaszczania.

Oktawa , 38 bajtów

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

Anonimowa funkcja, która pobiera wektor wiersza wartości i liczbę całkowitą.

Wypróbuj online!

Pari / GP , 46 bajtów

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

Wypróbuj online!