In :  충분한 메모리와 양의 정수 N

Out :  N으로 채워진 N 차원 N ^ N 배열. 여기서 N ^ N은 N x N x N x의 N 항을 의미합니다.

예 :

1 : [1]단일 1을 포함하는 길이 1의 1D 배열 (목록)입니다.

2 : [[2,2],[2,2]]2 개의 행과 2 개의 열이 있고 2로 채워진 2D 배열 (테이블)입니다.

3 : [[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]]]3 개로 채워진 3 개의 레이어, 3 개의 행 및 3 개의 열이있는 3D 배열 (입방체)

4 : [[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]]]

5와 6 : 답변 중 하나를 참조하십시오.

파이썬 , 32 바이트

lambda n:eval('['*n+'n'+']*n'*n)

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

곱셈 과 같은 문자열 "[[[n]*n]*n]*n"을 n만들고 파이썬 코드로 평가합니다. 평가는 함수 범위 내에서 이루어 지므로 변수 이름 n은 함수 입력으로 평가됩니다.

J, 4 바이트

$~#~

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

설명

$~#~  Input: integer n
  #~  Create n copies of n
$~    Shape n into an array with dimensions n copies of n

APL (Dyalog APL) , 4 바이트

⍴⍨⍴⊢

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

수학, 22 20 바이트

(t=Table)@@t[#,#+1]&

(* or *)

Table@@Table[#,#+1]&

R, 26

이것은 명백한 대답이지만 아마도 더 영리한 것이 있습니까?

n=scan();array(n,rep(n,n))

자바 스크립트 (ES6),  44  40 바이트

f=(n,k=i=n)=>i--?f(n,Array(n).fill(k)):k

데모

f=(n,k=i=n)=>i--?f(n,Array(n).fill(k)):k

console.log(JSON.stringify(f(1)))
console.log(JSON.stringify(f(2)))
console.log(JSON.stringify(f(3)))
console.log(JSON.stringify(f(4)))

하스켈 , 52 바이트

f n=iterate(filter(>'"').show.(<$[1..n]))(show n)!!n

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

@nimi의 답변 에서 영감을 얻었 지만 더 사전 정의 된 기능을 사용합니다.

• 사용 iterate하고 !!대신 재귀 도움말 기능의.
• "손으로"목록 구분 기호를 구성하는 대신 filter(>'"').show문자열 목록을 형식화 한 다음 추가 "문자 를 제거 합니다.

05AB1E (레거시) , 6 5 바이트

Kevin Cruijssen 에게 -1 감사합니다

F¹.D)

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

F     # For 0 .. input
 ¹.D) # Push <input> copies of the result of the last step as an array

옥타브, 35 33 25 23 20 바이트

@(N)ones(N+!(1:N))*N

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

@(N)ones(N*ones(1,N))*N

@(N)repmat(N,N*ones(1,N))

@LuisMendo 덕분에 8 바이트가 절약되었습니다.

@(N)ones(num2cell(!(1:N)+N){:})*N

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

이전 답변 :

@(N)repmat(N,num2cell(!(1:N)+N){:})

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

하스켈, 62 바이트

n#0=show n
n#l='[':tail((',':)=<<n#(l-1)<$[1..n])++"]"
f n=n#n

사용 예 : f 2-> "[[2,2],[2,2]]". 온라인으로 사용해보십시오! .

Haskell의 엄격한 유형 시스템은 깊이가 다른 중첩 목록을 반환하는 함수를 방지하므로 결과를 문자열로 구성합니다.

작동 방식 :

n#l=                         n with the current level l is
    '[':                     a literal [ followed by
           n#(l-1)<$[1..n]   n copies of   n # (l-1)
        (',':)=<<            each prepended by a , and flattened into a single list
      tail                   and the first , removed
                  ++"]"      followed by a literal ]

n#0=show n                   the base case is n as a string

f n=n#n                      main function, start with level n         

MATL, 8 바이트

ttY"l$l*

MATL Online 에서 시도해보십시오 ( MATL의 모든 n 차원 출력이 모든 차원> 2가 두 번째 차원으로 병합되는 2D 행렬로 표시되므로 실제 출력 크기를 보여주는 코드를 추가했습니다 ).

설명

        % Implicitly grab the input (N)
tt      % Make two copies of N
Y"      % Perform run-length decoding to create N copies of N
l$1     % Create a matrix of ones that is this size  
*       % Multiply this matrix of ones by N
        % Implicitly display the result  

파이썬 2 , 36 바이트

@CalculatorFeline 덕분에 -2 바이트

a=n=input()
exec"a=[a]*n;"*n
print a

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

CJam , 12 바이트

ri:X{aX*}X*p

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

설명

ri:X          Read an integer from input, store it in X (leaves it on the stack)
    {   }X*   Execute this block X times:
     a          Wrap the top of stack in an array
      X*        Repeat the array X times
           p  Print nicely

젤리 , 5 바이트

⁾Wẋẋv

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

어떻게?

⁾Wẋẋv - Main link: n                            e.g.       3
⁾Wẋ   - character pair literal ['W','ẋ']                  "Wẋ"
   ẋ  - repeat list n times                               "WẋWẋWẋ"
    v - evaluate as Jelly code with input n          eval("WẋWẋWẋ", 3)
      - ...
        WẋWẋ... - toEval: n                e.g. 3
        W        - wrap                        [3]
         ẋ       - repeat list n times         [3,3,3]
          Wẋ     - wrap and repeat            [[3,3,3],[3,3,3],[3,3,3]]
            ...  - n times total             [[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]],[[3,3,3],[3,3,3],[3,3,3]]]

자바 97 96 95 바이트

Object c(int n,int i){Object[]a=new Object[n];for(int j=0;j<n;)a[j++]=i<2?n:c(n,i-1);return a;}

언 골프 드 :

public class N_Dim {

    public static Object create(int n) {
        return create(n, n);
    }

    public static Object create(int n, int i) {
        Object[] array = new Object[n];
        for(int j=0;j<n;j++) {
            array[j] = i<2?n:create(n, i - 1);
        }
        return array;
    }

    public static void main(String[] args) {
        System.out.println(Arrays.deepToString((Object[]) create(3)));
    }

}

자바 스크립트 (ES6), 38 바이트

f=(n,m=n)=>m?Array(n).fill(f(n,m-1)):n

이 메모리 부족 버전은 45 바이트입니다.

f=(n,m=n)=>m?[...Array(n)].map(_=>f(n,m-1)):n

Bash + GNU 유틸리티, 117 바이트

n=$[$1**$1]
seq -f$1o%.fd$n+1-p $n|dc|rev|sed -r "s/(0+|$[$1-1]*).*$/\1/;s/^(0*)/\1$1/;s/^1/[1]/"|tr \\n0$[$1-1] \ []

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

프로그램은 기본적으로 n의 입력에서 0부터 (n ^ n) -1까지 계산합니다. 여기서 n은 입력입니다. 카운트의 각 n 수 k에 대해 다음을 수행합니다.

1. k가 하나 이상의 숫자 0으로 끝나는 경우 k의 끝에 각 숫자 0에 대해 '['를 인쇄하십시오.
2. 인쇄 n.
3. k가 하나 이상의 숫자 n-1로 끝나는 경우 k의 끝에 각 숫자 n-1에 대해 ']'를 인쇄하십시오.

(n = 1 값은 특수한 경우에 대괄호를 추가해야합니다.이 입력 값은 표준 PPCG 규칙에서 무시할 수있는 stderr에 일부 출력도 생성합니다.)

이 아이디어를 구현하는 더 짧은 방법이있을 수 있습니다.

샘플 실행 :

./array 3
[[[3 3 3] [3 3 3] [3 3 3]] [[3 3 3] [3 3 3] [3 3 3]] [[3 3 3] [3 3 3] [3 3 3]]]

젤리 , 4 바이트

R»µ¡

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

R»µ¡
R     Range. 2 -> [1, 2]
 »    Max between left arg and right arg. Vectorizes. -> [2, 2]
  µ   Separates into a new chain.
   ¡  Repeat 2 times. After another iteration this yields [[2, 2], [2, 2]].

단 하나의 모나드를 사용하지만 체인 분리기가 필요하지 않은 것 :

4 바이트

»€`¡

젤리 , 5 바이트

Wẋ³µ¡

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

설명

         Implicit input: N
   µ¡    Apply N times to input:
Wẋ³        “N copies of”

파이썬 3 , 57 53 50 38 바이트

f=lambda n,c=0:n-c and[f(n,c+1)*n]or 1

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

@CalculatorFeline 덕분에 -4 바이트

34 바이트 :

f=lambda c,n:c and[f(c-1,n)*n]or 1

로 불릴 필요가있다 f(4,4)

루비, 28 26 바이트

2 바이트를 절약 한 Cyoce 에게 감사드립니다 !

->n{eval'['*n+'n'+']*n'*n}

xnor 의 훌륭한 답변 에서 뻔뻔스럽게 도난당했습니다 .

루비, 27 바이트

->a{(z=a).times{z=[z]*a};z}

1 바이트 이상이지만 xnor의 훌륭한 Python 답변의 'eval'트릭 대신 다른 접근법을 사용합니다.

펄 6 , 25 바이트

{($^n,{$_ xx$n}...*)[$n]}

로 시작 하고 추가 중첩 수준을 만들 때마다 n"반복 n 번"변환 n시간을 반복적으로 적용합니다 List.

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

PHP, 70 62 바이트

이것은 내가 생각해 낼 수있는 가장 간단한 것입니다.

for(;$i++<$n=$argv[1];)$F=array_fill(0,$n,$F?:$n);print_r($F);

입력을 첫 번째 인수로 사용하고 결과 배열을 화면에 인쇄합니다.

8 바이트 를 절약 해 준 @ user59178 에게 감사 합니다 !

클로저, 36 바이트

#(nth(iterate(fn[a](repeat % a))%)%)

인수 n시간 을 반복하는 함수를 반복하고 이러한 요소를 무한대로 생성 한 다음 해당 요소를 가져옵니다 n.

온라인으로보십시오

리볼, 45 바이트

func[n][array/initial append/dup copy[]n n n]

배치, 141 바이트

@set t=.
@for /l %%i in (2,1,%1)do @call set t=%%t%%,.
@set s=%1
@for /l %%i in (1,1,%1)do @call call set s=[%%%%t:.=%%s%%%%%%]
@echo %s%

배치에는 실제로 배열이 없으므로 배열의 문자열 표현 만 인쇄합니다. 설명 : 처음 두 행 은 변수에서 N .s로 구분 된 반복 패턴을 구성 N-1 ,합니다 t. 그런 다음 네 번째 줄은이를 대체 패턴 N시간으로 사용하여 N차원 배열 을 만듭니다 . and 문이 작동 call하는 방식 때문에 이중 이 필요 합니다. 먼저, 명령은 변수를 대체합니다. 그것이 일어날 때, 내 모든 표지판이 두 배가되므로 이것은 모두를 인용 부호로 묶는 것 외에는 아무것도하지 않습니다 . 그런 다음 결과 명령문 시간 을 반복합니다 . 매번 명령이 변수를 대체합니다. 이 시점에서 변수에는 단일 세트 만 있습니다forsetfor%call call set s=[%%t:.=%s%%%]Ncalls%s가 치환되어 (예) call set s=[%t:.=[2,2]%]. 그런 다음 내부 호출은 t변수 를 대체하여 (예) set s=[[2,2],[2,2]]원하는 할당을 수행합니다. s그런 다음 최종 값이 인쇄됩니다.

클로저, 49 바이트

(defmacro r[n]`(->> ~n ~@(repeat n`(repeat ~n))))

가장 짧은 Clojure의 예는 아니지만 인용과 인용을 인용하면서 나 자신을 즐겁게했습니다.

I , 7 바이트

나는 이것을 내 동료 인 동료로부터 얻었습니다.

#Bbhph~

#Bb     복사 #기능 B의 아 운드가하기 ㄴ inding
   hp   시간 (의 우측)에 OOK에게 인수 P는 (반복) 심고 함수
     h~ H의 OOK를 왼쪽 인수 ~(전체 생성 기능)을

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

CL의, (128) 102 95 79 바이트

(defun f(x &optional y)(if(if y(< y 2))x(fill(make-list x)(f x(if y(1- y)x)))))

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