ความท้าทายนั้นง่ายมาก กำหนดอินพุตจำนวนเต็มnส่งออกn x nเมทริกซ์เอกลักษณ์ เมทริกซ์เอกลักษณ์เป็นข้อมูลที่มีการ1ขยายจากด้านบนซ้ายลงไปด้านล่างขวา คุณจะเขียนโปรแกรมหรือฟังก์ชั่นที่จะส่งกลับหรือแสดงเมทริกซ์เอกลักษณ์ที่คุณสร้างขึ้น ผลลัพธ์ของคุณอาจเป็นอาร์เรย์ 2 มิติหรือตัวเลขคั่นด้วยช่องว่าง / แท็บและบรรทัดใหม่

ตัวอย่างอินพุทและเอาท์พุท

1: [[1]]
2: [[1, 0], [0, 1]]
3: [[1, 0, 0], [0, 1, 0], [0, 0, 1]]
4: [[1, 0, 0, 0], [0, 1, 0, 0], [0, 0, 1, 0], [0, 0, 0, 1]]
5: [[1, 0, 0, 0, 0], [0, 1, 0, 0, 0], [0, 0, 1, 0, 0], [0, 0, 0, 1, 0], [0, 0, 0, 0, 1]]

1
===
1

2
===
1 0
0 1

3
===
1 0 0
0 1 0
0 0 1

etc.

นี่คือโค้ดกอล์ฟดังนั้นโค้ดที่สั้นที่สุดในหน่วยไบต์ชนะ

MATL, 2 ไบต์

Xy

การแปลคำตอบระดับแปดเสียงของฉัน

ลองออนไลน์

เวอร์ชัน 4 ไบต์ที่ไม่มีบิวด์อิน (ขอบคุณ Luis Mendo):

:t!=
:     take input n and a generate row array [1,2,...n]
 t    duplicate
  !   zip
   =  thread compare over the result

TI-BASIC, 2 ไบต์

identity(Ans

สนุกจริง: ทางที่สั้นที่สุดที่จะได้รับรายชื่อเป็น{N,N}dim(identity(N

นี่เป็นวิธีที่สั้นที่สุดโดยไม่มีบิวอินคือ 8 ไบต์:

randM(Ans,Ans)^0

randM(สร้างเมทริกซ์สุ่มที่มีรายการจำนวนเต็มทั้งหมดระหว่าง -9 ถึง 9 รวม (ฟังดูแปลก ๆ เพราะมันคือ) จากนั้นเราก็นำเมทริกซ์นี้ไปสู่กำลังที่ 0

Julia, 9 3 ไบต์

eye

นี่เป็นเพียงฟังก์ชั่นในตัวที่รับจำนวนเต็มnและคืนค่าnxn Array{Float64,2}(เช่นอาร์เรย์ 2 มิติ) eye(n)เรียกว่าเหมือน

โปรดทราบว่าการส่งแบบฟอร์มนี้เป็นที่ยอมรับตามนโยบายนี้

APL, 5 ไบต์

∘.=⍨⍳

นี่คือรถไฟฟังก์ชั่น monadic ที่รับจำนวนเต็มทางด้านขวาและส่งกลับเมทริกซ์เอกลักษณ์

ลองที่นี่

ระดับเสียงคู่10 10ไบต์

@eye

ส่งคืนฟังก์ชันที่ไม่ระบุชื่อซึ่งใช้ตัวเลขnและส่งคืนเมทริกซ์เอกลักษณ์

R, 4 ไบต์

diag

เมื่อได้รับเมทริกซ์ให้diagส่งกลับเส้นทแยงมุมของเมทริกซ์ แต่เมื่อได้รับจำนวนเต็มn, diag(n)ผลตอบแทนเมทริกซ์เอกลักษณ์

ลองออนไลน์

Python 2, 42 ไบต์

lambda n:zip(*[iter(([1]+[0]*n)*n)]*n)[:n]

ฟังก์ชั่นที่ไม่ระบุชื่อผลิตออกเช่น[(1, 0, 0), (0, 1, 0), (0, 0, 1)],

ขั้นแรกให้สร้างรายการ([1]+[0]*n)*nซึ่งn=3มีลักษณะดังนี้

[1, 0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0]

ใช้เคล็ดลับ zip / iter zip(*[iter(_)]*nเพื่อสร้างกลุ่มของการnให้

[(1, 0, 0), (0, 1, 0), (0, 0, 1), (0, 0, 0)]

โปรดทราบว่า1ดัชนีหนึ่งมาในภายหลังในแต่ละครั้งให้เมทริกซ์เอกลักษณ์ [:n]แต่มีความพิเศษทุกศูนย์แถวซึ่งจะถูกลบด้วย

เยลลี่ขนาด 4 ไบต์

R=€R

ไม่ใช้ตัวใน ลองออนไลน์!

มันทำงานอย่างไร

R=€R    Main link. Input: n

R       Range; yield [1, ..., n].
   R    Range; yield [1, ..., n].
 =€     Compare each.
        This compares each element of the left list with the right list, so it
        yields [1 = [1, ..., n], ..., n = [1, ..., n]], where comparison is
        performed on the integers.

J, 4 ไบต์

=@i.

นี่คือฟังก์ชันที่ใช้จำนวนเต็มและส่งกลับเมทริกซ์

Haskell, 43 37 bytes

f n=[[0^abs(x-y)|y<-[1..n]]|x<-[1..n]]

ค่อนข้างตรงไปตรงมาแม้ว่าฉันคิดว่าจะทำได้ดีกว่า (ไม่มีภาษาที่มีฟังก์ชั่นนี้ติดตั้งอยู่ในตัว

แก้ไข: ทำไบต์ลดลงขอบคุณØrjan Johansen

Pyth, 7 ไบต์

XRm0Q1Q

ลองใช้งานออนไลน์: การสาธิต

การสร้างเมทริกซ์ของศูนย์และแทนที่องค์ประกอบในแนวทแยงด้วยวัตถุ

JavaScript ES6, 68 62 52 ไบต์

บันทึก 10 ไบต์ด้วยเคล็ดลับเรียบร้อยจาก @Neil

x=>[...Array(x)].map((_,y,x)=>x.map((_,z)=>+(y==z)))

ลองใช้วิธีอื่นนอกเหนือจาก @ CᴏɴᴏʀO'Bʀɪᴇɴ อาจมีการปรับปรุง

จอตาตา 25

ขอมอบเครดิตให้ @randomra และ @Martin สำหรับการเล่นกอล์ฟเพิ่มเติม

\B.
 0
+`(.*) 0$
$0¶0 $1

ลองออนไลน์

หมายเหตุสิ่งนี้ใช้อินพุตเป็นเอกภาพ หากไม่เป็นที่ยอมรับอาจมีการป้อนค่าทศนิยมดังนี้:

จอประสาทตา, 34

.+
$0$*1
\B.
 0
+`(.*) 0$
$0¶0 $1

ลองออนไลน์

Haskell, 54 ไบต์

(#)=replicate
f n=map(\x->x#0++[1]++(n-x-1)#0)[0..n-1]

fส่งคืนเมทริกซ์เอกลักษณ์สำหรับอินพุต n ไกลจากที่ดีที่สุด

Lua, 77 75 65 ไบต์

x,v=z.rep,io.read()for a=1,v do print(x(0,a-1)..'1'..x(0,v-a))end

ฉันไม่แน่ใจว่า lua เป็นภาษาที่ดีที่สุดสำหรับเรื่องนี้ด้วยการต่อสองช่วงเวลา ... แต่เดี๋ยวก่อนมันมีช็อต ฉันจะดูว่ามีการปรับปรุงใด ๆ ที่จะทำ

แก้ไข:

ฉันคิดอะไรบางอย่างเกี่ยวกับอุบัติเหตุซึ่งฉันพบว่าค่อนข้างแปลก แต่ใช้งานได้

ใน Lua ทุกคนรู้ว่าคุณมีความสามารถในการกำหนดฟังก์ชั่นให้กับตัวแปร นี่เป็นหนึ่งในคุณสมบัติ CodeGolf ที่มีประโยชน์มากกว่า

ซึ่งหมายความว่าแทน:

string.sub("50", 1, 1) -- = 5
string.sub("50", 2, 2) -- = 0
string.sub("40", 1, 1) -- = 4
string.sub("40", 2, 2) -- = 0

คุณสามารถทำได้:

s = string.sub
s("50", 1, 1) -- = 5
s("50", 2, 2) -- = 0
s("40", 1, 1) -- = 4
s("40", 2, 2) -- = 0

แต่เดี๋ยวก่อน Lua ยอมให้ OOP ได้จำนวนหนึ่ง ดังนั้นคุณสามารถทำได้:

z=""
s = z.sub
s("50", 1, 1) -- = 5
s("50", 2, 2) -- = 0
s("40", 1, 1) -- = 4
s("40", 2, 2) -- = 0

ที่จะทำงานได้ดีและตัดตัวละคร

ตอนนี้ที่นี่มาเป็นส่วนที่แปลก คุณไม่จำเป็นต้องกำหนดสตริงแม้แต่ ณ จุดใด ๆ เพียงทำ:

s = z.sub
s("50", 1, 1) -- = 5
s("50", 2, 2) -- = 0
s("40", 1, 1) -- = 4
s("40", 2, 2) -- = 0

จะทำงาน.

ดังนั้นคุณสามารถมองเห็นความแตกต่างได้โดยดูผลลัพธ์ของกอล์ฟนี้:

ใช้ string.sub (88 ตัวอักษร)

string.sub("50", 1, 1)string.sub("50", 2, 2)string.sub("40", 1, 1)string.sub("40", 2, 2)

การกำหนด string.sub ให้กับตัวแปร (65 ตัวอักษร)

s=string.sub s("50", 1, 1)s("50", 2, 2)s("40", 1, 1)s("40", 2, 2)

การกำหนด string.sub โดยใช้วิธีการของ OOP (64 ตัวอักษร)

z=""s=z.sub s("50", 1, 1)s("50", 2, 2)s("40", 1, 1)s("40", 2, 2)

การกำหนด string.sub โดยใช้วิธีการ .. ไม่มี? (60 ตัวอักษร)

s=z.sub s("50", 1, 1)s("50", 2, 2)s("40", 1, 1)s("40", 2, 2)

หากมีคนรู้ว่าทำไมงานนี้ฉันจะสนใจ

Python 3, 48

บันทึก 1 ไบต์ขอบคุณ sp3000

ฉันรักความท้าทายที่ฉันสามารถแก้ไขได้ในหนึ่งบรรทัด ค่อนข้างง่ายสร้างบรรทัดจาก 1 และ 0 เท่ากับความยาวของ int ที่ส่งเข้าเอาต์พุตเป็นอาร์เรย์ 2d หากคุณหุ้มส่วนหลัง: ใน'\n'.join()ก็จะพิมพ์ออกมาสวย

lambda x:[[0]*i+[1]+[0]*(x+~i)for i in range(x)]

C, 59 หรือ 59 56 หรือ 56

ความยาวเท่ากันสองรุ่น

บันทึก 3 ไบต์เนื่องจากคำแนะนำจาก anatolyg: (n+1)->~n

ทำซ้ำiจากn*n-1ถึงศูนย์ พิมพ์ 1 ถ้า i% (n + 1) เป็นศูนย์มิฉะนั้น 0 จากนั้นพิมพ์บรรทัดใหม่ถ้าi%n= 0 เว้นวรรค

i;f(n){for(i=n*n;i--;)printf(i%n?"%d ":"%d\n",!(i%~n));}

i;f(n){for(i=n*n;i--;)printf("%d%c",!(i%~n),i%n?32:10);}

Mata ขนาด 4 ไบต์

I(3)

เอาท์พุต

[symmetric]
       1   2   3
    +-------------+
  1 |  1          |
  2 |  0   1      |
  3 |  0   0   1  |
    +-------------+

Mata เป็นภาษาการเขียนโปรแกรมเมทริกซ์ที่มีอยู่ในแพ็คเกจสถิติ Stata I (n) สร้างเมทริกซ์เอกลักษณ์ของขนาด n * n

K6 , 1 ไบต์

=

= ตรงนี้

ลองออนไลน์!

Pyth, 8 ไบต์

mmsqdkQQ

ลองมันนี่

Python 3.5 กับ NumPy - 57 49 30 ไบต์

import numpy
numpy.identity

NumPy.identity รับจำนวนเต็ม n และส่งกลับเมทริกซ์เอกลักษณ์โดย คำตอบนี้สามารถทำได้ผ่านนโยบายนี้

Mathematica, 35 ไบต์

โดยไม่ต้องใช้ IdentityMatrix

Table[Boole[i==j],{i,1,#},{j,1,#}]&

Javascript, 40

f=
n=>'0'.repeat(n).replace(/./g,"$`1$'\n")

I.oninput=_=>O.innerHTML=f(+I.value)
I.oninput()

<input id=I value=5>
<pre id=O>

Japt, 14 12 10 ไบต์

Uo £Z®¥X|0

ทดสอบออนไลน์! หมายเหตุ: รุ่นนี้มีสองสามไบต์พิเศษในการพิมพ์ออกสวย

Uo £Z®¥X|0    // Implicit: U = input integer
Uo £          // Create the range [0..U). Map each item X and the full array Z to:
    Z®        //  Take the full array Z, and map each item Z to:
      ¥X|0    //   (X == Z) converted to a number. 1 for equal, 0 for non-equal.
              // Implicit: output result of last expression

Brain-Flak , 206 170 162 ไบต์

(([{}])){({}<>(())<><(({})<{({}()(<>)<>)}{}>)>)}{}(({}<><(())>)){({}()<({[()]<({}()<({}<>((((()()()()){}){}){})((()()()()){}){})<>>)>}{})>)<>((()()()()()){})<>}<>

ลองออนไลน์!

K, 7 ไบต์

t=\:t:!

ใช้ผลคูณไขว้ของสองเวกเตอร์ที่มี [0, n)

ในการดำเนินการ:

  t=\:t:!3
(1 0 0
 0 1 0
 0 0 1)
  t=\:t:!5
(1 0 0 0 0
 0 1 0 0 0
 0 0 1 0 0
 0 0 0 1 0
 0 0 0 0 1)

Java, 60 ไบต์

n->{int[][]i=new int[n][n];for(;n-->0;)i[n][n]=1;return i;};

สร้างอาร์เรย์ 2 1มิติและแทนที่องค์ประกอบที่แถวและคอลัมน์เท่ากันด้วย

CJam, 7 ไบต์

{,_ff=}

นี่คือบล็อกรหัสที่ปรากฏเป็นจำนวนเต็มจากสแต็กและส่งกลับอาร์เรย์แบบ 2 มิติ

ลองออนไลน์!

Mathematica ขนาด 14 ไบต์

IdentityMatrix

กรณีทดสอบ

IdentityMatrix[4]
(* {{1,0,0,0},{0,1,0,0},{0,0,1,0},{0,0,0,1}} *)

Perl, 39 33 ไบต์

/$/,say map$`==$_|0,@%for@%=1..<>

ขอบคุณTon Hospelสำหรับการบันทึก 6 ไบต์

วิ่งด้วย-Eperlrun:

$ echo 3 | perl -E'@%=1..<>;$a=$_,say map{$a==$_|0}@%for@%'
100
010
001