In：  十分なメモリと正の整数N

Out：  Nで埋められたN次元のN ^ N配列、ここでN ^ NはN行N列N列のN項を意味します...

例：

1：[1]長さ1の1D配列（リスト）で、単一の1を含む

2：[[2,2],[2,2]]2行2列の2D配列（テーブル）で、2で埋められます

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：答えの1つをご覧ください。

Python、32バイト

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

オンラインでお試しください！

multiplcationsのような文字列"[[[n]*n]*n]*n"をn作成し、Pythonコードとして評価します。評価は関数スコープ内で行われるため、変数名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バイト

⍴⍨⍴⊢

オンラインでお試しください！

Mathematica、22 20バイト

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

(* or *)

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

R、26

これは明らかな答えですが、おそらくもっと賢いものがありますか？

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

JavaScript（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)))

Haskell、52バイト

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

オンラインでお試しください！

@nimiの回答に触発されましたが、より多くの定義済み関数を使用しています。

• 再帰的なヘルプ関数の代わりにiterateと!!を使用します。
• リスト区切り文字を「手作業で」構築する代わりにfilter(>'"').show、文字列のリストをフォーマットするために使用し、余分な"文字を取り除きます。

05AB1E（レガシー）、6 5バイト

-1 Kevin Cruijssenに感謝

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){:})

オンラインでお試しください！

Haskell、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次元マトリックスとして表示され、2次元を超えるすべての次元が2番目の次元にフラット化されるため、出力の実際のサイズを示すコードを追加しました）。

説明

        % 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  

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

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

}

JavaScript（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が少なくとも1桁の数字0で終わる場合、kの末尾の数字0ごとに「[」を出力します。
2. nを印刷します。
3. kが少なくとも1桁の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”

Pythonの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'トリックの代わりに別のアプローチを使用しています。

Perl 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に感謝します！

Clojure、36バイト

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

引数を繰り返す関数を繰り返し、そのnような要素の無限のシーケンスを生成し、そのnth番目の要素を取得します。

オンラインで見る

Rebol、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%

バッチには実際には配列がないため、これは配列の文字列表現を出力するだけです。説明：最初の2行は、変数でN .sで区切られたN-1 ,s の繰り返しパターンを構築しますt。4行目では、これを置換パターンとして使用Nして、- N次元配列を作成します。ダブルcallはfor、setステートメントの動作方法のために必要です。まず、forコマンドは変数を置き換えます。偶然にも、私の%サインはすべて2倍になっているため、すべてのクォートを解除する以外は何もしませんcall call set s=[%%t:.=%s%%%]。次に、結果のステートメントをN繰り返します。毎回、callコマンドは変数を置き換えます。この時点で、s変数には単一のセットのみがあります%s、置換されるため、結果は（eg）になりcall set s=[%t:.=[2,2]%]ます。次に、内部呼び出しがt変数を置換し、結果として（たとえば）set s=[[2,2],[2,2]]、目的の割り当てを実行します。の最終値が出力sされます。

Clojure、49バイト

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

最短のClojureの例ではありませんが、引用と引用解除を楽しんでいます。

I、7バイト

私の同僚であるIの作成者からこれを受け取りました。

#Bbhph~

#Bb     コピー#機能Bのためのound bは inding
   hp   時間（の右側）にOOKを引数のP ower機能（リピート）
     h~ Hの左側にOOKを引数を~（全体得られた関数の）

オンラインでお試しください！

Common Lisp、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)))))

オンラインでお試しください！