Wyzwanie jest bardzo proste. Biorąc pod uwagę liczbę całkowitą n, n x nwyślij macierz tożsamości. Matryca tożsamości obejmuje matrycę 1od lewego górnego do prawego dolnego rogu. Napisz program lub funkcję, która zwróci lub wyśle ​​utworzoną macierz tożsamości. Twój wynik może być tablicą 2D lub liczbami oddzielonymi spacjami / tabulatorami i znakami nowej linii.

Przykładowe wejście i wyjście

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.

To jest golf golfowy , więc wygrywa najkrótszy kod w bajtach.

MATL, 2 bajty

Xy

Tłumaczenie mojej odpowiedzi Octave.

Wypróbuj online.

Wersja 4-bajtowa bez wbudowanych (dzięki 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 bajty

identity(Ans

Ciekawostka: najkrótszą drogą do uzyskania listy {N,N}jest dim(identity(N.

Oto najkrótsza droga bez wbudowanego, w 8 bajtów:

randM(Ans,Ans)^0

randM(tworzy losową macierz z wpisami zawierającymi wszystkie liczby całkowite od -9 do 9 włącznie (brzmi to dziwnie specyficznie, ponieważ tak jest). Następnie przenosimy tę macierz na zerową potęgę.

Julia, 9 3 bajty

eye

Jest to tylko wbudowana funkcja, która przyjmuje liczbę całkowitą ni zwraca nxn Array{Float64,2}(tj. Tablicę 2D). Nazwij to jak eye(n).

Pamiętaj, że przesłanie tego formularza jest dopuszczalne zgodnie z niniejszymi zasadami .

APL, 5 bajtów

∘.=⍨⍳

Jest to monadyczny ciąg funkcji, który akceptuje liczbę całkowitą po prawej stronie i zwraca macierz tożsamości.

Wypróbuj tutaj

Oktawa, 10 4 bajty

@eye

Zwraca anonimową funkcję, która pobiera liczbę ni zwraca macierz tożsamości.

R, 4 bajty

diag

Po otrzymaniu macierzy diagzwraca przekątną macierzy. Jednakże, gdy otrzyma liczbę całkowitą n, diag(n)zwraca macierz identyczności.

Wypróbuj online

Python 2, 42 bajty

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

Anonimowa funkcja, jak produkuje wyjście [(1, 0, 0), (0, 1, 0), (0, 0, 1)],

Najpierw tworzy listę ([1]+[0]*n)*n, która n=3wygląda jak

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

Używanie sztuczki zip / iter zip(*[iter(_)]*n do tworzenia grup ndarów

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

Zauważ, że 1przychodzi jeden indeks później za każdym razem, podając macierz tożsamości. Ale istnieje dodatkowy wiersz zerowy, który jest usuwany za pomocą [:n].

Galaretka, 4 bajty

R=€R

Nie używa wbudowanego. Wypróbuj online!

Jak to działa

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 bajty

=@i.

Jest to funkcja, która pobiera liczbę całkowitą i zwraca macierz.

Haskell, 43 37 bajtów

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

Całkiem proste, choć myślę, że można zrobić lepiej (bez języka, który ma już tę funkcję wbudowaną, jak wielu zrobiło).

Edycja: upuścił kilka bajtów dzięki Ørjan Johansen

Pyth, 7 bajtów

XRm0Q1Q

Wypróbuj online: Demonstracja

Tworzenie macierzy zer i zamiana elementów ukośnych na jedynki.

JavaScript ES6, 68 62 52 bajty

Oszczędność 10 bajtów dzięki zgrabnej sztuczce z @Neil

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

Próbuję innego podejścia niż @ Cᴏɴᴏʀ O'Bʀɪᴇɴ. Można ewentualnie poprawić.

Siatkówka , 25

Podziękowania dla @randomra i @Martin za dodatkowe gry w golfa.

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

Wypróbuj online.

Zauważ, że przyjmuje to dane wejściowe jako jednoargumentowy. Jeśli nie jest to do przyjęcia, można wprowadzić dane dziesiętne w następujący sposób:

Retina, 34

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

Wypróbuj online.

Haskell, 54 bajty

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

fzwraca macierz tożsamości dla wejścia n. Dalekie od optymalnego.

Lua, 77 75 65 bajtów

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

Cóż, nie jestem pewien, czy lua jest najlepszym językiem do tego z konkatenacją dwóch okresów ... Ale hej, jest na to szansa. Zobaczę, czy należy wprowadzić jakieś ulepszenia.

EDYTOWAĆ:

Odkryłem coś przypadkowego, co wydaje mi się dość dziwne, ale działa.

W Lua wszyscy wiedzą, że masz możliwość przypisywania funkcji do zmiennych. Jest to jedna z bardziej przydatnych funkcji CodeGolf.

Oznacza to zamiast:

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

Możesz to zrobić:

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

Ale czekaj, Lua pozwala na pewną ilość OOP. Więc potencjalnie możesz nawet zrobić:

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

To też zadziała i tnie postacie.

Teraz nadchodzi dziwna część. W żadnym momencie nie musisz nawet przypisywać łańcucha. Po prostu robiąc:

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

Będzie działać.

Aby wizualnie zobaczyć różnicę, spójrz na to:

Używanie string.sub (88 znaków)

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

Przypisywanie string.sub do zmiennej (65 znaków)

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

Przypisywanie string.sub przy użyciu metody OOP (64 znaki)

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

Przypisywanie string.sub przy użyciu podejścia .. zero? (60 znaków)

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

Jeśli ktoś wie, dlaczego to działa, byłbym zainteresowany.

Python 3, 48

Zaoszczędzono 1 bajt dzięki sp3000.

Uwielbiam wyzwania, które mogę rozwiązać w jednym wierszu. Całkiem proste, zbuduj linię z 1 i 0 równą długości przekazywanej wartości int. Wyjście jako tablica 2d. Jeśli owiniesz część po: in '\n'.join(), wydrukuje się całkiem.

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

C, 59 lub 59 56 lub 56

Dwie wersje o identycznej długości.

3 bajty zapisane z powodu sugestii anatolyga: (n+1)->~n

Iteruje iod n*n-1zera. Drukuje 1, jeśli i% (n + 1) wynosi zero, w przeciwnym razie 0. Następnie drukuje nową linię, jeśli i%n= 0, w przeciwnym razie spacja.

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 bajty

I(3)

Wynik

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

Mata jest językiem programowania matrycowego dostępnym w pakiecie statystycznym Stata. I (n) tworzy macierz tożsamości o rozmiarze n * n

K6 , 1 bajt

=

= jest dokładnie to

Wypróbuj online!

Pyth, 8 bajtów

mmsqdkQQ

Wypróbuj tutaj .

Python 3.5 z NumPy - 57 49 30 bajtów

import numpy
numpy.identity

NumPy.identity przyjmuje liczbę całkowitą n i zwraca macierz tożsamości n według n. Ta odpowiedź jest dozwolona za pośrednictwem tej zasady .

Mathematica, 35 bajtów

bez użycia 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 bajtów

Uo £Z®¥X|0

Przetestuj online! Uwaga: ta wersja ma kilka dodatkowych bajtów, aby dość wydrukować wydruk.

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 bajtów

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

Wypróbuj online!

K, 7 bajtów

t=\:t:!

Weź iloczyn krzyżowy równości dwóch wektorów zawierających [0, n).

W akcji:

  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 bajtów

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

Tworzy tablicę 2D i zastępuje elementy, w których wiersze i kolumny są równe 1.

CJam, 7 bajtów

{,_ff=}

Jest to blok kodu, który wyrzuca liczbę całkowitą ze stosu i wypycha w zamian tablicę 2D.

Wypróbuj online!

Mathematica, 14 bajtów

IdentityMatrix

Przypadek testowy

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

Perl, 39 33 bajtów

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

Dzięki Ton Hospel za oszczędność 6 bajtów

Uruchamianie z -Eperlrun:

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