เมื่อได้รับรายชื่อ aa และค่าจำนวนเต็มบวกnรหัสของคุณควรเอาท์พุทผลิตภัณฑ์คาร์ทีเซียนของรายการด้วยnเวลาตัวเอง

ตัวอย่างเช่นใน pseudocode ฟังก์ชั่นของคุณอาจคล้ายกับ:

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

ตัวอย่าง:

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

ฟังก์ชั่นในตัว (หรือฟังก์ชั่นจากห้องสมุดที่นำเข้า) ที่ไม่ได้รับอนุญาตให้คำนวณผลิตภัณฑ์คาร์ทีเซียน (หรือกำลังไฟ) เนื่องจากรหัสที่ได้นั้นค่อนข้างน่าเบื่อ

อินพุตและเอาต์พุตควรคั่นด้วย แต่สามารถใช้วิธีการที่เหมาะสม

ลำดับการส่งออกที่ได้รับไม่สำคัญ แต่ไม่อนุญาตให้ทำซ้ำ

นี่เป็นครั้งแรกที่ฉันโพสต์คำถามดังนั้นถ้าฉันทำอะไรผิดพลาดอย่างมากโปรดบอกฉัน

Haskell , 21 ไบต์

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

ลองออนไลน์!

Lisp สามัญ , 146 ไบต์

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

ลองออนไลน์!

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 ไบต์

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

ลองออนไลน์!

combnไม่ใช่ผลิตภัณฑ์คาร์ทีเซียนในตัวแน่นอนเนื่องจากเป็นการคำนวณการรวมกันทั้งหมดnของอินพุต

R , 40 ไบต์

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

ลองออนไลน์!

expand.grid อาจเป็นผลิตภัณฑ์คาร์ทีเซียนในตัว

Perl 6 , 16 ไบต์

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

ลองมัน

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 ไบต์

{x@+!y##x}

ลองออนไลน์!

{ }เป็นฟังก์ชันที่มีอาร์กิวเมนต์xและy

#x ความยาวของ x

y##xความยาวของการxทำซ้ำyครั้ง

!y##x ความยาว - y ทั้งหมดจะเพิ่มมากกว่า 0,1, ... , ความยาว (x) -1 เป็นเมทริกซ์ที่ถูกย้าย

+ transpose

x@องค์ประกอบของxดัชนีเหล่านั้น

APL (Dyalog Classic) , 18 12 ไบต์

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

ลองออนไลน์!

-6 ไบต์ขอบคุณ @ngn!

Perl 5 , 33 ไบต์

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

ลองออนไลน์!

Python 2 , 69 58 ไบต์

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

ลองออนไลน์!

รับรายการaและเลขจำนวนเต็มn; ส่งคืนรายการของรายการ

Ruby , 53 ไบต์

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

ลองออนไลน์!

วิธีการเรียกซ้ำไม่สั้นมาก แต่รับประกันว่าจะไม่มีบิวด์อินใด ๆ

มันล่อลวงให้ใช้วิธีการเรียงสับเปลี่ยน แต่สิ่งนี้อาจไม่นับและเอกสารจริง ๆ ไม่ได้รับประกันความถูกต้องของคำสั่งซื้อแม้ว่าจะดูเหมือนว่าจะใช้งานได้จริง:

Ruby , 35 ไบต์

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

ลองออนไลน์!

Prolog (SWI) 72 ไบต์

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

ลองออนไลน์!

แร็กเก็ต, 92 ไบต์

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

ลองออนไลน์

Ungolfed

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

เจลลี่ , 11 9 7 ไบต์

³;þẎƊ’¡

ลองออนไลน์!

คำอธิบาย

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

Pure Bash (ไม่มียูทิลิตี้ภายนอก), 57

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

อินพุตถูกกำหนดเป็นพารามิเตอร์บรรทัดคำสั่ง ที่ 1 คือที่n2 คือรายการที่คั่นด้วยเครื่องหมายจุลภาค

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

ลองออนไลน์!

Java 10, 19 + 135 = 154 ไบต์

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

ลองออนไลน์

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

กิตติกรรมประกาศ

• พอร์ตสู่ Java 10 ต้องขอบคุณ Kevin Cruijssen

Oracle SQL, 177 ไบต์

สร้างประเภทคอลเลกชัน (31 ไบต์):

CREATE TYPE t IS TABLE OF INT;

จากนั้นใช้คิวรี (146 ไบต์):

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

สมมติว่าพารามิเตอร์อินพุตอยู่ในตารางที่iมีคอลัมน์aและb:

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

ซอ Fiddle

ผลลัพธ์ :

|     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 ไบต์

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

ลองออนไลน์! ฉันพบสตริงซ้ำและเข้าร่วมรายการด้วยเครื่องหมายจุลภาคยากที่จะทำในทุบตี

Javascript (Node) , 75 ไบต์

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

ฟังก์ชั่นวนซ้ำซึ่งส่งออกรายการไปยังคอนโซล aอาร์เรย์ว่างเปล่าอยู่ที่ไหนและiเป็น 0 (ไม่แน่ใจว่ายังคงมีสิทธิ์):

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

ลองออนไลน์!

JavaScript (SpiderMonkey) , 52 ไบต์

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

ลองออนไลน์!

J , 17 ไบต์

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

มันทำงานอย่างไร?

ฉันระบุnตัวเลข -digit ทั้งหมดในระบบตัวเลขที่มีความยาวพื้นฐานของรายการ

            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

ลองออนไลน์!

CJam , 26 ไบต์

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

ลองออนไลน์!

ถ้ามีเพียง CJam เท่านั้นที่มีตัวอักษรหนึ่งคำสั่งสำหรับผลิตภัณฑ์คาร์ทีเซียนและแบน

อ็อกเทฟ 38 ไบต์

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

ฟังก์ชั่นไม่ระบุชื่อที่ใช้เวกเตอร์แถวของค่าและจำนวนเต็ม

ลองออนไลน์!

Pari / GP , 46 ไบต์

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

ลองออนไลน์!