Zorluk çok basittir. Bir tamsayıdır giriş verilen nçıkış, n x nbirim matris. Kimlik matrisi, 1yukarıdan aşağıya ve sağdan aşağıya doğru yayılmış olandır. Oluşturduğunuz kimlik matrisini döndürecek ya da çıkaran bir program ya da işlev yazacaksınız. Çıktınız 2B dizi veya boşluk / sekme ve yeni satırlarla ayrılmış sayılar olabilir.

Örnek giriş ve çıkış

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.

Bu kod golf , yani bayt cinsinden en kısa kod kazanır.

MATL, 2 bayt

Xy

Octave cevabımın çevirisi.

Çevrimiçi deneyin.

Dahili olmayan 4 baytlık bir versiyon (Luis Mendo sayesinde):

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

TI-BASIC, 2 bayt

identity(Ans

Eğlenceli bir gerçek: bir listesini almak için en kısa yol {N,N}olduğunu dim(identity(N.

İşte yerleşik olmayan en kısa yol, 8 bayt:

randM(Ans,Ans)^0

randM(-9 ile 9 arasındaki tüm tam sayıların girişlerini içeren rastgele bir matris yaratır (çünkü tuhaf bir şekilde özeldir). Daha sonra bu matrisi 0'ıncı güce çıkardık.

Julia, 9 3 bayt

eye

Bu sadece bir tamsayıyı kabul eden nve bir nxn Array{Float64,2}(yani 2B dizi) döndüren yerleşik bir işlevdir . Öyle çağır eye(n).

Bu formun gönderimlerinin bu politikaya uygun olduğunu unutmayın .

APL, 5 bayt

∘.=⍨⍳

Bu, sağdaki bir tamsayıyı kabul eden ve kimlik matrisini döndüren monadik bir fonksiyon trenidir.

Burada dene

Octave, 10 4 bayt

@eye

Sayı alan nve kimlik matrisini döndüren adsız bir işlev döndürür.

R, 4 bayt

diag

Bir matris verildiğinde, matrisin diagköşegenini döndürür. Bir tamsayıyı verilen, ancak n, diag(n)kimlik matris verir.

Çevrimiçi deneyin

Python 2,42 bayt

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

Anonim bir işlev, gibi çıktı üretir [(1, 0, 0), (0, 1, 0), (0, 0, 1)],

İlk olarak, listesini oluşturur ([1]+[0]*n)*n, kendisi için n=3böyle görünüyor

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

Kullanılması zip / iter kandırmak zip(*[iter(_)]*n grupları yapmak için nverir

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

Not 1kimlik matrisi vererek daha sonra her seferinde bir tane endeksi geliyor. Ancak, kaldırılmış olan ekstra bir sıfır sırası var [:n].

Jöle, 4 bayt

R=€R

Yerleşik kullanmaz. Çevrimiçi deneyin!

Nasıl çalışı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 bayt

=@i.

Bu bir tamsayı alan ve matrisi döndüren bir işlevdir.

Haskell, 43 37 bayt

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

Oldukça basit, birisinin daha iyisini yapabileceğini düşünüyorum.

Düzenleme: Ørjan Johansen sayesinde bazı baytlar atıldı

Pyth, 7 bayt

XRm0Q1Q

Çevrimiçi deneyin: Gösteri

Sıfırlar matrisi oluşturma ve köşegen elemanları ile değiştirir.

JavaScript ES6, 68 62 52 bayt

@Neil'den gelen temiz numara ile 10 byte kurtarıldı

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

@ Cᴏɴᴏʀ O'Bʀɪᴇɴ'lerden farklı bir yaklaşım denemek. Muhtemelen geliştirilebilirdi.

Retina , 25

Ekstra golf oynamak için @randomra ve @Martin'e teşekkür ederiz.

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

Çevrimiçi deneyin.

Unutmayın ki bu giriş bir tekli olarak kabul edilir. Bu kabul edilebilir değilse, o zaman ondalık giriş aşağıdaki gibi verilebilir:

Retina, 34

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

Çevrimiçi deneyin.

Haskell, 54 bayt

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

fn girişi için kimlik matrisini döndürür. Optimal olmaktan uzak.

Lua, 77 75 65 bayt

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

İki dönem bitiştirme ile Lua'nın bunun için en iyi dil olup olmadığından emin değilim. Yapılması gereken herhangi bir gelişme olup olmadığını göreceğim.

DÜZENLE:

Kaza konusunda oldukça garip bulduğum bir şey buldum ama işe yarıyor.

Lua'da herkes değişkenlere fonksiyonlar atayabileceğinizi biliyor. Bu, daha kullanışlı CodeGolf özelliklerinden biridir.

Bunun yerine:

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

Bunu yapabilirsiniz:

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

Fakat bekleyin, Lua bir miktar OOP'a izin verir. Böylece potansiyel olarak bile yapabilirsiniz:

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

Bu da işe yarayacak ve karakterleri kesecek.

Şimdi burada tuhaf kısım geliyor. Herhangi bir noktada bir dize atamanıza bile gerek yok. Basitçe yapıyorum:

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

Çalışacak.

Böylece farkı görsel olarak görebilir, golfün sonuçlarına bir göz atabilirsiniz:

String.sub kullanımı (88 karakter)

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

String.sub değişkenine atama (65 karakter)

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

Bir OOP yaklaşımı kullanarak string.sub atama (64 karakter)

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

String.sub atama .. nil yaklaşımı kullanarak? (60 karakter)

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

Birisi bunun neden işe yaradığını bilirse, ilgilenirim.

Python 3, 48

Sp3000 sayesinde 1 bayt kurtarıldı.

Tek satırda çözebileceğim zorlukları seviyorum. Oldukça basit, içeri aktarılan int uzunluğuna eşit 1 ile 0 arasında bir çizgi oluşturun. 2d dizisi olarak çıktılar. Parçayı:: in'den sonra kaydırırsanız, '\n'.join()hoş bir şekilde basar.

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

C, 59 veya 59 56 veya 56

Aynı uzunluktaki iki versiyon.

Anadolgun önerisinden dolayı 3 bayt kurtarıldı: (n+1)->~n

Dolaşır igelen n*n-1sıfıra. İ% (n + 1) sıfırsa, aksi takdirde 0 ise 1 olarak yazdırır i%n.

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 bayt

I(3)

Çıktı

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

Mata, Stata istatistik paketinde bulunan matris programlama dilidir. I (n), n * n boyutunda bir kimlik matrisi oluşturur

K6 , 1 bayt

=

= tam olarak bu

Çevrimiçi deneyin!

Pyth, 8 bayt

mmsqdkQQ

Burada dene .

NumPy ile Python 3.5 - 57 49 30 bayt

import numpy
numpy.identity

NumPy.identity, n bir tamsayı alır ve bir n kimlik matrisi döndürür. Bu cevaba bu politika aracılığıyla izin verilir .

Mathematica, 35 Bayt

IdentityMatrix kullanmadan

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 bayt

Uo £Z®¥X|0

Çevrimiçi test edin! Not: Bu sürümde çıktıyı güzel bir şekilde yazdırmak için fazladan birkaç bayt vardır.

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 bayt

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

Çevrimiçi deneyin!

K, 7 bayt

t=\:t:!

[0, n) içeren iki vektörün eşitlik çapraz ürününü alın.

Eylemde:

  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 bayt

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

2B dizi oluşturur ve satır ile sütunun eşit olduğu öğeleri değiştirir 1.

CJam, 7 bayt

{,_ff=}

Bu, yığından bir tamsayı çıkaran ve bir 2B dizilimini döndüren bir kod bloğudur.

Çevrimiçi deneyin!

Mathematica, 14 bayt

IdentityMatrix

Test durumu

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

Perl, 39 33 bayt

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

6 byte tasarruf için Ton Hospel sayesinde

-EPerlrun ile çalıştırma :

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