Die Herausforderung ist sehr einfach. Geben Sie bei einer Ganzzahleingabe ndie n x nIdentitätsmatrix aus. Die Identitätsmatrix 1erstreckt sich von oben links nach unten rechts. Sie schreiben ein Programm oder eine Funktion, die die von Ihnen erstellte Identitätsmatrix zurückgibt oder ausgibt. Ihre Ausgabe kann ein 2D-Array oder durch Leerzeichen / Tabulatoren und Zeilenumbrüche getrennte Zahlen sein.

Beispiel für Ein- und Ausgabe

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.

Das ist Code-Golf , also gewinnt der kürzeste Code in Bytes.

MATL, 2 Bytes

Xy

Eine Übersetzung meiner Octave-Antwort.

Probieren Sie es online aus.

Eine 4-Byte-Version ohne eingebaute Funktionen (dank 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 Bytes

identity(Ans

Unterhaltsame Tatsache: Der kürzeste Weg, eine Liste zu erhalten, {N,N}ist dim(identity(N.

Hier ist der kürzeste Weg ohne die eingebauten, in 8 Bytes:

randM(Ans,Ans)^0

randM(Erstellt eine Zufallsmatrix mit Einträgen aller ganzen Zahlen zwischen -9 und 9 (das klingt seltsamerweise spezifisch, weil es so ist). Wir nehmen dann diese Matrix zur 0. Potenz.

Julia, 9 3 Bytes

eye

Dies ist nur eine integrierte Funktion, die eine Ganzzahl akzeptiert nund ein nxn Array{Float64,2}(dh ein 2D-Array) zurückgibt . Nenne es so eye(n).

Beachten Sie, dass Einsendungen dieses Formulars gemäß dieser Richtlinie zulässig sind .

APL, 5 Bytes

∘.=⍨⍳

Dies ist ein monadischer Funktionszug, der eine Ganzzahl auf der rechten Seite akzeptiert und die Identitätsmatrix zurückgibt.

Probieren Sie es hier aus

Oktave, 10 4 Bytes

@eye

Gibt eine anonyme Funktion zurück, die eine Zahl annimmt nund die Identitätsmatrix zurückgibt.

R, 4 Bytes

diag

Wenn eine Matrix angegeben wird, wird diagdie Diagonale der Matrix zurückgegeben. Bei einer Ganzzahl nwird jedoch diag(n)die Identitätsmatrix zurückgegeben.

Probieren Sie es online aus

Python 2, 42 Bytes

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

Eine anonyme Funktion erzeugt eine Ausgabe wie [(1, 0, 0), (0, 1, 0), (0, 0, 1)]:

Zunächst wird die Liste erstellt ([1]+[0]*n)*n, nach der n=3aussieht

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

Mit Hilfe der zip / iter Trick zip(*[iter(_)]*n Gruppen zu machen , der ngibt

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

Beachten Sie, dass der 1Index jedes Mal einen Index später kommt und die Identitätsmatrix angibt. Es gibt jedoch eine zusätzliche Null-Zeile, die mit entfernt wird [:n].

Gelee, 4 Bytes

R=€R

Verwendet kein eingebautes. Probieren Sie es online!

Wie es funktioniert

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 Bytes

=@i.

Dies ist eine Funktion, die eine Ganzzahl annimmt und die Matrix zurückgibt.

Haskell, 43 37 Bytes

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

Ziemlich einfach, obwohl ich denke, man kann es besser machen (ohne eine Sprache, in der diese Funktion bereits eingebaut ist, wie es viele getan haben).

Bearbeiten: Dank Ørjan Johansen sind einige Bytes weggefallen

Pyth, 7 Bytes

XRm0Q1Q

Probieren Sie es online aus: Demonstration

Erstellen einer Nullmatrix und Ersetzen der diagonalen Elemente durch Einsen.

JavaScript ES6, 68 62 52 Bytes

10 Bytes gespart dank eines netten Tricks von @Neil

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

Ich versuche einen anderen Ansatz als bei @ Cᴏɴᴏʀ O'Bʀɪᴇɴ. Könnte evtl. verbessert werden.

Retina , 25

Dank an @randomra und @Martin für zusätzliches Golfen.

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

Probieren Sie es online aus.

Beachten Sie, dass dies als unäre Eingabe gilt. Ist dies nicht akzeptabel, kann die Dezimaleingabe wie folgt erfolgen:

Retina, 34

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

Probieren Sie es online aus.

Haskell, 54 Bytes

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

fGibt die Identitätsmatrix für Eingabe n zurück. Weit davon entfernt, optimal zu sein.

Lua, 77 75 65 Bytes

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

Nun, ich bin mir nicht sicher, ob lua die beste Sprache für diese Verkettung ist ... Aber hey, es gibt eine Chance. Ich werde sehen, ob Verbesserungen vorgenommen werden müssen.

BEARBEITEN:

Ich habe durch einen Unfall etwas herausgefunden, was ich ziemlich merkwürdig finde, aber es funktioniert.

In Lua weiß jeder, dass Sie Variablen Funktionen zuweisen können. Dies ist eine der nützlicheren CodeGolf-Funktionen.

Das heißt statt:

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

Du kannst das:

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

Aber warte, Lua lässt etwas OOP zu. Sie könnten also möglicherweise sogar Folgendes tun:

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

Das funktioniert auch und schneidet Charaktere.

Jetzt kommt hier der seltsame Teil. Sie müssen zu keinem Zeitpunkt eine Zeichenfolge zuweisen. Einfach machen:

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

Wird funktionieren.

So können Sie den Unterschied visuell erkennen und sich die Golfergebnisse ansehen:

Verwenden von string (88 Zeichen)

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

Zuweisen von string.sub zu einer Variablen (65 Zeichen)

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

String.sub mit einem OOP-Ansatz zuweisen (64 Zeichen)

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

String.sub mit einem .. nil-Ansatz zuweisen? (60 Zeichen)

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

Wenn jemand weiß, warum das funktioniert, würde ich mich interessieren.

Python 3, 48

1 Byte dank sp3000 gespeichert.

Ich liebe Herausforderungen, die ich in einer Linie lösen kann. Ziemlich einfach, erstellen Sie eine Zeile aus 1 und 0, die der Länge des übergebenen Int entspricht. Ausgabe als 2D-Array. Wenn Sie das Teil nach dem: in einwickeln '\n'.join(), wird es hübsch gedruckt.

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

C, 59 oder 59 56 oder 56

Zwei Versionen gleicher Länge.

3 Bytes gespart aufgrund eines Vorschlags von anatolyg: (n+1)->~n

Iteriert ivon n*n-1auf Null. Gibt eine 1 aus, wenn i% (n + 1) Null ist, andernfalls 0. Gibt eine neue Zeile aus, wenn i%n= 0, andernfalls ein Leerzeichen.

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 Bytes

I(3)

Ausgabe

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

Mata ist die Matrix-Programmiersprache, die im Statistikpaket Stata enthalten ist. I (n) erzeugt eine Identitätsmatrix der Größe n * n

K6 , 1 Byte

=

= ist genau das

Probieren Sie es online!

Pyth, 8 Bytes

mmsqdkQQ

Probieren Sie es hier aus .

Python 3.5 mit NumPy - 57 49 30 Bytes

import numpy
numpy.identity

NumPy.identity nimmt eine Ganzzahl n auf und gibt eine Identitätsmatrix von n zurück. Diese Antwort ist über diese Richtlinie zulässig .

Mathematica, 35 Bytes

ohne Verwendung von 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 Bytes

Uo £Z®¥X|0

Online testen! Hinweis: Diese Version verfügt über einige zusätzliche Bytes, um die Ausgabe hübsch zu drucken.

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 Bytes

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

Probieren Sie es online!

K, 7 Bytes

t=\:t:!

Nehmen Sie das Gleichheitskreuzprodukt zweier Vektoren, die [0, n) enthalten.

In Aktion:

  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 Bytes

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

Erstellt ein 2D-Array und ersetzt Elemente, bei denen Zeile und Spalte gleich sind 1.

CJam, 7 Bytes

{,_ff=}

Dies ist ein Codeblock, der eine Ganzzahl aus dem Stapel entfernt und ein 2D-Array zurückschiebt.

Probieren Sie es online!

Mathematica, 14 Bytes

IdentityMatrix

Testfall

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

Perl, 39 33 Bytes

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

Vielen Dank an Ton Hospel für die Einsparung von 6 Bytes

Laufen mit dem -EPerlrun:

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