Tantangannya sangat sederhana. Diberikan input integer n, output n x nmatriks identitas. Matriks identitas adalah matriks yang 1membentang dari kiri atas ke kanan bawah. Anda akan menulis program atau fungsi yang akan mengembalikan atau menampilkan matriks identitas yang Anda buat. Output Anda mungkin berupa array 2D, atau angka yang dipisahkan oleh spasi / tab dan baris baru.

Contoh input dan output

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.

Ini adalah kode-golf , jadi kode terpendek dalam byte menang.

MATL, 2 byte

Xy

Terjemahan dari jawaban Oktaf saya.

Cobalah online.

Versi 4 byte tanpa built-in (terima kasih kepada 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 byte

identity(Ans

Fakta menyenangkan: Cara terpendek untuk mendapatkan daftar {N,N}adalah dim(identity(N.

Inilah cara terpendek tanpa builtin, dalam 8 byte:

randM(Ans,Ans)^0

randM(membuat matriks acak dengan entri semua bilangan bulat antara -9 dan 9 inklusif (yang terdengar aneh karena itu). Kami kemudian mengambil matriks ini ke kekuatan 0.

Julia, 9 3 byte

eye

Ini hanya fungsi bawaan yang menerima integer ndan mengembalikan nxn Array{Float64,2}(yaitu array 2D). Sebut saja seperti eye(n).

Perhatikan bahwa pengiriman formulir ini dapat diterima sesuai kebijakan ini .

APL, 5 byte

∘.=⍨⍳

Ini adalah kereta fungsi monadik yang menerima integer di sebelah kanan dan mengembalikan matriks identitas.

Coba di sini

Oktaf, 10 4 byte

@eye

Mengembalikan fungsi anonim yang mengambil angka ndan mengembalikan matriks identitas.

R, 4 byte

diag

Ketika diberi matriks, diagmengembalikan diagonal matriks. Namun, ketika diberi bilangan bulat n, diag(n)mengembalikan matriks identitas.

Cobalah online

Python 2, 42 byte

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

Fungsi anonim, menghasilkan keluaran seperti [(1, 0, 0), (0, 1, 0), (0, 0, 1)],

Pertama, buat daftar ([1]+[0]*n)*n, yang n=3terlihat seperti

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

Menggunakan trik zip / iter zip(*[iter(_)]*n untuk membuat kelompok nmemberi

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

Perhatikan bahwa 1muncul satu indeks nanti setiap kali, memberikan matriks identitas. Tapi, ada baris ekstra semua nol, yang dihapus dengan [:n].

Jelly, 4 byte

R=€R

Tidak menggunakan built-in. Cobalah online!

Bagaimana itu bekerja

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 byte

=@i.

Ini adalah fungsi yang mengambil integer dan mengembalikan matriks.

Haskell, 43 37 byte

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

Cukup mudah, meskipun saya pikir seseorang dapat melakukan lebih baik (tanpa bahasa yang sudah memiliki fungsi ini built in, seperti yang telah dilakukan banyak orang).

Sunting: turun beberapa byte berkat Ørjan Johansen

Pyth, 7 byte

XRm0Q1Q

Cobalah online: Demonstrasi

Membuat matriks nol dan mengganti elemen diagonal dengan yang satu.

JavaScript ES6, 68 62 52 byte

Disimpan 10 byte berkat trik yang rapi dari @Neil

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

Mencoba pendekatan yang berbeda dari @ Cᴏɴᴏʀ O'Bʀɪᴇɴ. Mungkin bisa ditingkatkan.

Retina , 25

Kredit ke @randomra dan @Martin untuk golf ekstra.

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

Cobalah online.

Catatan ini mengambil input sebagai unary. Jika ini tidak dapat diterima, maka input desimal dapat diberikan sebagai berikut:

Retina, 34

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

Cobalah online.

Haskell, 54 byte

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

fmengembalikan matriks identitas untuk input n. Jauh dari optimal.

Lua, 77 75 65 byte

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

Yah, aku tidak yakin apakah lua adalah bahasa terbaik untuk ini dengan penggabungan dua periode ... Tapi, hei, ada kesempatan untuk itu. Saya akan melihat apakah ada perbaikan yang harus dilakukan.

EDIT:

Saya menemukan sesuatu pada kecelakaan yang menurut saya agak aneh, tetapi berhasil.

Di Lua, semua orang tahu Anda memiliki kemampuan untuk menetapkan fungsi ke variabel. Ini adalah salah satu fitur CodeGolf yang lebih berguna.

Ini berarti bukannya:

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

Kamu bisa melakukan ini:

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

Tapi tunggu, Lua memungkinkan sejumlah OOP. Jadi, Anda bahkan berpotensi melakukan:

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

Itu akan bekerja juga dan memotong karakter.

Sekarang inilah bagian yang aneh. Anda bahkan tidak perlu menetapkan string di titik mana pun. Cukup melakukan:

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

Akan bekerja.

Agar Anda dapat melihat perbedaannya secara visual, lihat hasil golf ini:

Menggunakan string.sub (88 karakter)

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

Menetapkan string.sub ke variabel (65 karakter)

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

Menetapkan string.sub menggunakan pendekatan OOP (64 karakter)

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

Menetapkan string.sub menggunakan pendekatan .. nil? (60 karakter)

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

Jika seseorang tahu mengapa ini berhasil, saya akan tertarik.

Python 3, 48

Disimpan 1 byte berkat sp3000.

Saya suka tantangan yang bisa saya selesaikan dalam satu baris. Cukup sederhana, buat garis dari 1 dan 0 sama dengan panjang int yang dilewatkan. Output sebagai array 2d. Jika Anda membungkus bagian setelah: di '\n'.join(), itu akan cukup mencetaknya.

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

C, 59 atau 59 56 atau 56

Dua versi dengan panjang yang identik.

3 byte disimpan karena saran dari anatolyg: (n+1)->~n

Berganti idari n*n-1nol. Mencetak 1 jika i% (n + 1) adalah nol, jika tidak, maka 0. Mencetak baris baru jika i%n= 0 jika tidak spasi.

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 byte

I(3)

Keluaran

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

Mata adalah bahasa pemrograman matriks yang tersedia dalam paket statistik Stata. I (n) membuat matriks identitas dengan ukuran n * n

K6 , 1 byte

=

= persis seperti ini

Cobalah online!

Pyth, 8 byte

mmsqdkQQ

Coba di sini .

Python 3.5 dengan NumPy - 57 49 30 byte

import numpy
numpy.identity

NumPy.identity mengambil integer, n, dan mengembalikan sebuah matriks identitas n. Jawaban ini diizinkan melalui kebijakan ini .

Mathematica, 35 Bytes

tanpa menggunakan 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 byte

Uo £Z®¥X|0

Uji secara online! Catatan: versi ini memiliki beberapa byte tambahan untuk mencetak keluaran dengan cantik.

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 byte

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

Cobalah online!

K, 7 byte

t=\:t:!

Ambil produk persamaan silang dari dua vektor yang mengandung [0, n).

Beraksi:

  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 byte

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

Membuat array 2D dan menggantikan elemen dengan baris dan kolom yang sama dengan 1.

CJam, 7 byte

{,_ff=}

Ini adalah blok kode yang mengeluarkan bilangan bulat dari tumpukan dan mendorong array 2D sebagai imbalannya.

Cobalah online!

Mathematica, 14 byte

IdentityMatrix

Kasus cobaan

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

Perl, 39 33 byte

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

Terima kasih kepada Ton Hospel untuk menghemat 6 byte

Berlari dengan -Eperlrun:

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