Dalam:  Memori yang cukup dan bilangan bulat positif N

Keluar:  N-dimensi N ^ N array diisi dengan N, di mana N ^ N berarti N istilah N-oleh-N-oleh-N-oleh ...

Contoh:

1: [1]yang merupakan array 1D (daftar) dengan panjang 1, berisi 1 tunggal

2: [[2,2],[2,2]]yang merupakan array 2D (tabel) dengan 2 baris dan 2 kolom, diisi dengan 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]]]yang merupakan array 3D (kubus) dengan 3 lapisan, 3 baris, dan 3 kolom, diisi dengan 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 dan 6: Silakan lihat salah satu jawabannya.

Python , 32 byte

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

Cobalah online!

Membuat string seperti "[[[n]*n]*n]*n"dengan nperkalian, dan mengevaluasinya sebagai kode Python. Karena evaluasi terjadi dalam lingkup fungsi, nama variabel nmengevaluasi ke input fungsi.

J, 4 byte

$~#~

Cobalah online!

Penjelasan

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

APL (Dyalog APL) , 4 byte

⍴⍨⍴⊢

Cobalah online!

Mathematica, 22 20 byte

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

(* or *)

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

R, 26

Ini jawaban yang jelas tapi mungkin ada yang lebih pintar?

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

JavaScript (ES6),  44  40 byte

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

Demo

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 byte

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

Cobalah online!

Terinspirasi oleh jawaban @ nimi , tetapi menggunakan lebih banyak fungsi yang telah ditentukan sebelumnya.

• Menggunakan iteratedan !!bukannya fungsi bantuan rekursif.
• Alih-alih membangun pembatas daftar "dengan tangan", gunakan filter(>'"').showuntuk memformat daftar string, lalu menghilangkan "karakter tambahan .

05AB1E (legacy) , 6 5 byte

-1 terima kasih kepada Kevin Cruijssen

F¹.D)

Cobalah online!

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

Oktaf, 35 33 25 23 20 byte

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

Cobalah online!

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

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

Berkat @LuisMendo, tersimpan 8 byte

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

Cobalah online!

Jawaban sebelumnya:

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

Cobalah online!

Haskell, 62 byte

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

Contoh penggunaan: f 2-> "[[2,2],[2,2]]". Cobalah online! .

Sistem ketat Haskell mencegah fungsi yang mengembalikan daftar bersarang dari kedalaman yang berbeda, jadi saya membuat hasilnya sebagai string.

Bagaimana itu bekerja:

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 byte

ttY"l$l*

Cobalah di MATL Online (Saya telah menambahkan beberapa kode yang menunjukkan ukuran sebenarnya dari keluaran karena semua keluaran n-dimensi dalam MATL ditampilkan sebagai matriks 2D di mana semua dimensi> 2 diratakan ke dalam dimensi kedua).

Penjelasan

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

-2 byte terima kasih kepada @CalculatorFeline

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

Cobalah online!

CJam , 12 byte

ri:X{aX*}X*p

Cobalah online!

Penjelasan

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

Jelly , 5 byte

⁾Wẋẋv

Cobalah online!

Bagaimana?

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

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

Tidak Disatukan:

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 byte

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

Versi haus memori ini adalah 45 byte:

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

Utilitas Bash + GNU, 117 byte

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

Cobalah online!

Program ini pada dasarnya dihitung dari 0 hingga (n ^ n) -1 di basis n, di mana n adalah input. Untuk setiap basis-n angka k dalam hitungan, ia melakukan hal berikut:

1. Jika k berakhir dengan setidaknya satu digit 0, cetak '[' untuk setiap digit 0 di akhir k.
2. Cetak n.
3. Jika k berakhir dengan setidaknya satu digit n-1, cetak a ']' untuk setiap digit n-1 di akhir k.

(Nilai n = 1 perlu ditambahkan tanda kurung sebagai kasus khusus. Nilai input ini juga menghasilkan beberapa output ke stderr, yang dapat diabaikan berdasarkan aturan PPCG standar.)

Mungkin ada cara yang lebih singkat untuk mengimplementasikan ide ini.

Contoh dijalankan:

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

Jelly , 4 byte

R»µ¡

Cobalah online!

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

Hal yang sama tetapi dengan monad tunggal dan tidak perlu pemisah rantai:

4 byte

»€`¡

Jelly , 5 byte

Wẋ³µ¡

Cobalah online!

Penjelasan

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

Python 3 , 57 53 50 38 byte

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

Cobalah online!

-4 byte terima kasih kepada @CalculatorFeline

34 byte:

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

Perlu disebut sebagai f(4,4)

Ruby, 28 26 byte

Terima kasih kepada Cyoce karena telah menghemat 2 byte!

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

Dicuri tanpa malu-malu dari xnor 's jawaban yang sangat baik .

Ruby, 27 byte

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

Hanya 1 byte lebih banyak tetapi menggunakan pendekatan yang berbeda dan bukan trik 'eval' dari jawaban Python xnor yang luar biasa.

Perl 6 , 25 byte

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

Dimulai dengan n, dan secara iteratif menerapkan waktu transformasi "repeat n times" n, setiap kali menciptakan level tambahan dari Listnesting.

Cobalah online!

PHP, 70 62 byte

Ini adalah yang paling sederhana yang bisa saya lakukan.

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

Mengambil input sebagai argumen pertama dan mencetak array yang dihasilkan di layar.

Terima kasih kepada @ user59178 karena telah menyelamatkan saya 8 byte !

Clojure, 36 byte

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

Iterasikan fungsi yang mengulangi argumennya nkali, menghasilkan urutan elemen yang tak terbatas dan kemudian mengambil nelemennya.

Lihat online

Rebol, 45 byte

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

Batch, 141 byte

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

Batch sebenarnya tidak memiliki array, jadi ini hanya mencetak representasi string dari array. Penjelasan: Dua baris pertama membangun pola berulang N .s dipisahkan oleh N-1 ,s dalam variabel t. Baris keempat kemudian menggunakan ini sebagai waktu pola substitusi Nuntuk membuat Narray -dimensi. Dobel calldiperlukan karena cara kerja fordan setpernyataan. Pertama, forperintah tersebut menggantikan variabel. Seperti yang terjadi, semua saya %tanda-tanda dua kali lipat, jadi ini tidak apa-apa kecuali tanda kutip mereka semua, sehingga call call set s=[%%t:.=%s%%%]. Itu kemudian mengulangi waktu pernyataan yang dihasilkan N. Setiap kali, callperintah itu menggantikan variabel. Pada titik ini, svariabel hanya memiliki satu set%s, jadi itu diganti, menghasilkan (misalnya) call set s=[%t:.=[2,2]%]. Panggilan batin kemudian menggantikan tvariabel, menghasilkan (misalnya) set s=[[2,2],[2,2]], melakukan tugas yang diinginkan. Nilai akhir dari skemudian dicetak.

Clojure, 49 byte

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

Bukan contoh Clojure terpendek, tetapi saya menghibur diri dengan mengutip dan tidak mengutip.

I , 7 byte

Saya mendapat ini dari rekan saya, pencipta saya.

#Bbhph~

#Bb    #fungsi  salin B ound ke b inding
   hp   h ook argumen ke (kanan) fungsi p ower (repeat)
     h~ h ook argumen ke kiri ~(dari seluruh fungsi yang dihasilkan)

Cobalah online!

Common Lisp, 128 102 95 79 byte

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

Cobalah online!