Wenn Sie eine Werteliste und eine positive Ganzzahl erhalten n, sollte Ihr Code das kartesische Produkt der Liste mit sich selbst nmal ausgeben .

Im Pseudocode könnte Ihre Funktion beispielsweise ähnlich sein wie:

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

Beispiel:

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

Eingebaute Funktionen (oder Funktionen aus importierten Bibliotheken), die das kartesische Produkt (oder die Leistung) berechnen, sind nicht zulässig, da der resultierende Code etwas langweilig ist.

Ein- und Ausgänge sollten abgegrenzt werden, können aber mit jeder vernünftigen Methode durchgeführt werden.

Die Reihenfolge, in der die Ausgabe erfolgt, spielt keine Rolle, Duplikate sind jedoch nicht zulässig.

Dies ist mein erstes Mal, dass ich eine Frage stelle. Wenn ich also etwas schrecklich Falsches getan habe, sag es mir bitte.

Haskell , 21 Bytes

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

Probieren Sie es online aus!

Common Lisp , 146 Bytes

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

Probieren Sie es online aus!

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 Bytes

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

Probieren Sie es online aus!

combnist definitiv kein eingebautes kartesisches Produkt, da es alle nKombinationen seiner Eingabe berechnet .

R , 40 Bytes

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

Probieren Sie es online aus!

expand.grid ist wahrscheinlich ein kartesisches Produkt eingebaut.

Perl 6 , 16 Bytes

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

Versuch es

Erweitert:

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

{x@+!y##x}

Probieren Sie es online aus!

{ }ist eine Funktion mit Argumenten xundy

#x die Länge von x

y##xdie Länge der xwiederholten yZeiten

!y##x alle Länge-y-Tupel über 0,1, ..., Länge (x) -1 als transponierte Matrix

+ transponieren

x@Elemente xan diesen Indizes

APL (Dyalog Classic) , 18 bis 12 Byte

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

Probieren Sie es online aus!

-6 Bytes dank @ngn!

Perl 5 , 33 Bytes

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

Probieren Sie es online aus!

Python 2 , 69 58 Bytes

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

Probieren Sie es online aus!

Nimmt eine Liste aund eine ganze Zahl n; Gibt eine Liste von Listen zurück.

Ruby , 53 Bytes

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

Probieren Sie es online aus!

Rekursiver Ansatz, nicht so kurz, aber garantiert frei von Einbauten.

Es ist verlockend, Permutationsmethoden zu verwenden, aber dies zählt wahrscheinlich nicht, und die Dokumente geben tatsächlich keine Garantie für die Richtigkeit der Bestellung an, obwohl dies in der Praxis zu funktionieren scheint:

Ruby , 35 Bytes

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

Probieren Sie es online aus!

Prolog (SWI) , 72 Bytes

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

Probieren Sie es online aus!

Schläger, 92 Bytes

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

Probieren Sie es online aus

Ungolfed

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

Gelee , 11 9 7 Bytes

³;þẎƊ’¡

Probieren Sie es online aus!

Erläuterung

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

Pure Bash (keine externen Dienstprogramme), 57

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

Die Eingabe erfolgt als Befehlszeilenparameter. 1. ist n, 2. ist eine durch Kommas getrennte Liste.

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

Probieren Sie es online aus!

Java 10, 19 + 135 = 154 Bytes

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

Probieren Sie es online aus

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

Danksagung

• Port auf Java 10 dank Kevin Cruijssen

Oracle SQL, 177 Bytes

Erstellen Sie einen Sammlungstyp (31 Byte):

CREATE TYPE t IS TABLE OF INT;

Verwenden Sie dann die Abfrage (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

Angenommen, die Eingabeparameter befinden sich in der Tabelle imit den Spalten aund 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

Ergebnisse :

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

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

Probieren Sie es online aus! Ich fand es überraschend schwierig, Strings zu wiederholen und Listen mit Kommas zu verbinden.

Javascript (Knoten) , 75 Bytes

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

Rekursive Funktion, die die Liste an die Konsole ausgibt. Wo aist ein leeres Array und iist 0 (nicht sicher, ob dies noch qualifiziert ist):

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

Probieren Sie es online aus!

JavaScript (SpiderMonkey) , 52 Bytes

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

Probieren Sie es online aus!

J , 17 Bytes

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

Wie es funktioniert?

Ich nzähle alle -stelligen Zahlen in einem Zahlensystem mit der Länge der Liste auf.

            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

Probieren Sie es online aus!

CJam , 26 Bytes

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

Probieren Sie es online aus!

Wenn CJam nur ein Zeichen Befehle für kartesisches Produkt und Abflachung hätte.

Oktave , 38 Bytes

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

Anonyme Funktion, die einen Zeilenvektor mit Werten und eine Ganzzahl verwendet.

Probieren Sie es online aus!

Pari / GP , 46 Bytes

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

Probieren Sie es online aus!