ใน: มี  หน่วยความจำเพียงพอและจำนวนเต็มบวก N

Out:  อาร์เรย์ N-N N มิติ N ที่เต็มไปด้วย N โดยที่ N ^ N หมายถึงเงื่อนไข N ของ N-by-N-by-N-by ...

ตัวอย่าง:

1: [1]ซึ่งเป็นอาร์เรย์ 1D (รายการ) ที่มีความยาว 1 มี 1 เดียว

2: [[2,2],[2,2]]ซึ่งเป็นอาร์เรย์ 2 มิติ (ตาราง) ที่มี 2 แถวและ 2 คอลัมน์เต็มไปด้วย 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 คอลัมน์ซึ่งเต็มไปด้วย 3 วินาที

4: [[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]]],[[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[4,4,4,4],[4,4,4,4]],[[4,4,4,4],[4,4,4,4],[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 และประเมินว่ามันเป็นรหัสหลาม เนื่องจากการประเมินเกิดขึ้นภายในขอบเขตฟังก์ชันชื่อตัวแปร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 (ฉันได้เพิ่มโค้ดบางส่วนที่แสดงขนาดที่แท้จริงของเอาต์พุตเนื่องจากเอาต์พุต n- มิติทั้งหมดใน MATL จะแสดงเป็นเมทริกซ์ 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;}

Ungolfed:

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 คืออินพุต สำหรับแต่ละ base-n number k ในการนับมันทำดังต่อไปนี้:

1. หาก k ลงท้ายด้วยอย่างน้อยหนึ่งหลัก 0 ให้พิมพ์ '[' สำหรับแต่ละหลัก 0 ที่ท้าย k
2. พิมพ์ n
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]].

สิ่งเดียวกัน แต่มี 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 's คำตอบที่ดี

Ruby, 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))%)%)

ฟังก์ชัน Iterates ซึ่งทำซ้ำnเวลาอาร์กิวเมนต์มันสร้างลำดับที่ไม่สิ้นสุดขององค์ประกอบดังกล่าวแล้วจึงนำnองค์ประกอบที่สามมาใช้

ดูออนไลน์

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 , 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 ที่สั้นที่สุด แต่ฉันก็สนุกกับคำพูดและการพูดไม่ออก

ฉัน 7 ไบต์

ฉันได้รับสิ่งนี้จากเพื่อนร่วมงานของฉันผู้สร้างฉัน

#Bbhph~

#Bb    #ฟังก์ชั่นการ คัดลอกB ound ไปยังb inding
   hp   h 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)))))

ลองออนไลน์!