값 목록과 양의 정수가 주어지면 n코드는 목록의 직교 곱을 자체 n시간 과 함께 출력해야합니다 .

예를 들어, 의사 코드에서 함수는 다음과 유사 할 수 있습니다.

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

결과 코드가 다소 지루하기 때문에 데카르트 곱 (또는 거듭 제곱)을 계산하는 내장 함수 (또는 가져온 라이브러리의 함수)는 허용되지 않습니다.

입력과 출력은 구분되어야하지만 합리적인 방법으로 취할 수 있습니다.

출력 순서는 중요하지 않지만 중복은 허용되지 않습니다.

이것은 처음으로 질문을 게시 한 것이므로 끔찍한 일이 있었다면 알려주십시오.

하스켈 , 21 바이트

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

온라인으로 사용해보십시오!

공통 리스프 , 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)))

온라인으로 사용해보십시오!

언 골프

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

온라인으로 사용해보십시오!

combnn입력의 모든 조합을 계산하므로 확실히 직교 제품이 아닙니다 .

R , 40 바이트

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

온라인으로 사용해보십시오!

expand.grid 아마도 직교 제품 내장 일 것입니다.

펄 6 , 16 바이트

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

시도 해봐

예상 :

{  # 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 0,1, ..., 길이 (x) -1 이상의 모든 길이 -y 튜플을 조옮김 행렬로

+ 바꾸어 놓다

x@x그 지수의 요소

APL (Dyalog Classic) , 18 12 바이트

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

온라인으로 사용해보십시오!

@ngn 덕분에 -6 바이트!

펄 5 , 33 바이트

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

온라인으로 사용해보십시오!

파이썬 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; 리스트의리스트를 돌려줍니다.

루비 , 53 바이트

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

온라인으로 사용해보십시오!

재귀 적 접근 방식은 짧지는 않지만 내장 기능이 없음을 보장합니다.

순열 방법을 사용하고 싶은 유혹이지만, 아마도 계산되지 않으며 문서는 실제로 순서가 올바른지 보장하지 않지만 실제로는 작동하는 것으로 보입니다.

루비 , 35 바이트

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

온라인으로 사용해보십시오!

프롤로그 (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))))'(())))

온라인 시도

언 골프

(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

퓨어 배쉬 (외부 유틸리티 없음), 57

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

입력은 명령 행 매개 변수로 제공됩니다. 첫 번째는 n이고 두 번째는 쉼표로 구분 된 목록입니다.

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

온라인으로 사용해보십시오!

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

온라인 시도

언 골프

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

감사의 말

• Kevin Cruijssen 덕분에 Java 10으로 포트

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

SQL 바이올린

결과 :

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

배쉬 , 61 바이트

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

온라인으로 사용해보십시오! bash에서 문자열을 반복하고 쉼표로 목록을 조인하는 것이 놀랍게도 어렵다는 것을 알았습니다.

자바 스크립트 (노드) , 75 바이트

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

목록을 콘솔에 출력하는 재귀 기능. a빈 배열은 어디에 있고 i0입니다 (여전히 자격이 있는지 확실하지 않음).

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

온라인으로 사용해보십시오!

자바 스크립트 (SpiderMonkey) , 52 바이트

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

온라인으로 사용해보십시오!

J , 17 바이트

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

어떻게 작동합니까?

나는 n목록의 길이를 기본으로하는 숫자 시스템의 모든 숫자를 열거 합니다.

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

온라인으로 사용해보십시오!