输入：  足够的内存和一个正整数N

出：  用N填充的N维N ^ N数组，其中N ^ N表示N个N个N个N个N个项的N个项...

例子：

1：[1]是长度为1的一维数组（列表），包含单个1

2：[[2,2],[2,2]]这是一个2行2列的2D数组（一个表），用2s填充

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数组（一个多维数据集），具有3层，3行和3列，填充了3s

4： [[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[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：请参阅答案之一。

Python，32字节

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

在线尝试！

使得像一个字符串"[[[n]*n]*n]*n"与nmultiplcations，并评估它作为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维输出都显示为2D矩阵，其中所有维> 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个字节

-2个字节，感谢@CalculatorFeline

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] \ []

在线尝试！

程序本质上从0到以n为底的（n ^ n）-1计数，其中n是输入。对于计数中的每个以n为底的数字k，它将执行以下操作：

1. 如果k以至少一位数字0结尾，则在k的末尾为每个数字0打印'['。
2. 打印n。
3. 如果k以至少一位n-1结尾，则在k的末尾为每位n-1打印一个']'。

（在特殊情况下，值n = 1需要添加方括号。此输入值还会生成一些输出到stderr，在标准PPCG规则下可以忽略此输出。）

也许有一个较短的方法可以实现这个想法。

样品运行：

./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]].

同样的事情，但是只有一个monad，并且不需要链分隔符：

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

在线尝试！

-4个字节，感谢@CalculatorFeline

34个字节：

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

需要称为 f(4,4)

Ruby，28 26个字节

感谢Cyoce节省了2个字节！

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

从无耻被盗XNOR的出色答卷。

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

将输入作为第一个参数，并在屏幕上打印结果数组。

感谢@ user59178为我节省了8个字节！

Clojure，36个字节

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

迭代函数，该函数重复其自变量n时间，生成此类元素的无限序列，然后获取其n第th个元素。

在线观看

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%

批处理实际上没有数组，因此仅打印数组的字符串表示形式。说明：前两行在变量中建立了一个由N .s分隔的N-1 ,s 的重复模式t。然后，第四行将其用作替代模式N时间以创建- N维数组。call由于forand set语句是如何工作的，因此必须使用double 。首先，该for命令替换变量。碰巧的是，我所有的%符号都加倍了，所以除了取消引用所有这些之外，此操作无济于事，结果为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个字节

我是从我的创造者我的同事那里得到的。

#Bbhph~

#Bb     复印#功能乙 ound到b inding
   hp   ħ OOK的参数（的右侧）p奥尔函数（重复）
     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)))))

在线尝试！