В:  Досить пам'яті та натурального числа N

Вихід:  N-мірний масив N ^ N, заповнений N, де N ^ N означає N термінів N-від-N-від-N-by ...

Приклади:

1: [1]який являє собою 1D масив (список) довжиною 1, що містить одинарний 1

2: [[2,2],[2,2]]це 2D масив (таблиця) з 2 рядками та 2 стовпцями, заповнений 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: Будь ласка, дивіться одну з відповідей.

Пітон , 32 байти

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

Спробуйте в Інтернеті!

Створює рядок, подібний "[[[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 байти

⍴⍨⍴⊢

Спробуйте в Інтернеті!

Математика, 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 спасибі Кевіну Кройссену

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 (я додав код, який показує фактичний розмір виводу, оскільки всі n-мірні виходи в MATL показані у вигляді двовимірних матриць, де всі розміри> 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) -1 в базовій n, де n - вхід. Для кожного базового n числа k у підрахунку він робить наступне:

1. Якщо k закінчується принаймні однією цифрою 0, надрукуйте '[' для кожної цифри 0 в кінці k.
2. Друк н.
3. Якщо k закінчується щонайменше однією цифрою n-1, надрукуйте ']' для кожної цифри n-1 наприкінці k.

(Значення 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]].

Те ж саме, але з єдиною монадою і не потрібен роздільник ланцюга:

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)

Рубі, 28 26 байт

Дякуємо Cyoce за економію 2-х байт!

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

Викрадені безсоромно з XNOR «s відмінного відповіді .

Рубін, 27 байт

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

Лише на 1 байт більше, але використовуючи інший підхід замість хитрості 'eval' з чудової відповіді Python xnor.

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елемент.

Дивіться це в Інтернеті

Ребол, 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%

Batch насправді не має масивів, тому це просто друкує рядкове представлення масиву. Пояснення: Перші два рядки будують повторний візерунок N .s, розділений N-1 ,s на змінну t. Потім четвертий рядок використовує це як шаблон заміни Nразів для створення N-вимірного масиву. Подвійний callнеобхідний через те, як працюють forі setзаяви. По-перше, forкоманда підміняє змінні. Як це буває, всі мої %знаки подвоюються, тому це не робить нічого, окрім того, щоб процитувати їх усі, в результаті чого call call set s=[%%t:.=%s%%%]. Потім він повторює отриманий Nраз твердження . Кожен раз callкоманда підміняє змінні. На даний момент sзмінна має лише один набір%s, тому він стає заміщеним, в результаті чого (наприклад) 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    #функція  копіювання B ound to b inding
   hp   h ook аргумент на (праворуч) функцію p ower (повторити)
     h~ h ook аргумент зліва ~(від усієї результуючої функції)

Спробуйте в Інтернеті!

Лисп звичайний, 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)))))

Спробуйте в Інтернеті!