Завдання дуже просте. З урахуванням цілого введення nвиведіть n x nматрицю ідентичності Матриця ідентичності - це матриця, що має 1від верхнього лівого до нижнього правого краю. Ви напишете програму або функцію, яка повертає або виводить створену матрицю ідентичності. Вихідним може бути двовимірний масив або числа, розділені пробілами / вкладками та новими рядками.

Приклад введення та виведення

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-байтна версія без вбудованих даних (завдяки Луїсу Мендо):

: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-ї потужності.

Джулія, 9 3 байти

eye

Це просто вбудована функція, яка приймає ціле число nі повертає nxn Array{Float64,2}(тобто 2D масив). Називай це так eye(n).

Зауважте, що подання цієї форми є прийнятним відповідно до цієї політики .

APL, 5 байт

∘.=⍨⍳

Це поїзд монадичної функції, який приймає ціле число праворуч і повертає матрицю ідентичності.

Спробуйте тут

Октава, 10 4 байти

@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 байт

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

Досить прямо, хоча я думаю, що можна зробити краще (без мови, в якій вже є вбудована ця функція, як це зробили багато).

Редагувати: скинув кілька байт завдяки Ерджану Йохансену

Pyth, 7 байт

XRm0Q1Q

Спробуйте в Інтернеті: Демонстрація

Створення матриці нулів та заміна діагональних елементів одиницями.

JavaScript ES6, 68 62 52 байт

Збережено 10 байт завдяки акуратному трюку від @Neil

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

Спробуйте інший підхід, ніж @ Cᴏɴᴏʀ O'Bʀɪᴇɴ's. Можливо, можна вдосконалити.

Сітківка , 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. Далеко від оптимального.

Луа, 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

Ну, я не впевнений, чи найкраща мова для цього є луа з двома конкатенаціями періоду ... Але ей, в цьому є постріл. Я побачу, чи варто внести якісь поліпшення.

Редагувати:

Я вирішив щось випадково, що мені здається дивним, але це працює.

У Луї всі знають, що ти маєш можливість присвоювати функції змінним. Це одна з більш корисних функцій 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)

Якщо хтось знає, чому це працює, мені було б цікаво.

Пітон 3, 48

Збережено 1 байт завдяки sp3000.

Я люблю виклики, які можу вирішити за один рядок. Досить просто: побудуйте рядок з 1 і 0, що дорівнює довжині переданої int. Виводиться у вигляді 2d масиву. Якщо ви загортаєте частину після: in '\n'.join(), вона досить роздрукує її.

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

C, 59 або 59 56 або 56

Два варіанти однакової довжини.

3 байти збережено завдяки навіюванню з анатолігу: (n+1)->~n

Ітератує iвід n*n-1нуля. Друкує a 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);}

Мата, 4 байти

I(3)

Вихідні дані

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

Mata - мова програмування матриць, доступна в статистичному пакеті Stata. I (n) створює матрицю ідентичності розміром n * n

К6 , 1 байт

=

= саме це

Спробуйте в Інтернеті!

Pyth, 8 байт

mmsqdkQQ

Спробуйте тут .

Python 3.5 з NumPy - 57 49 30 байт

import numpy
numpy.identity

NumPy.identity приймає ціле число, n та повертає матрицю тотожності n. Ця відповідь можлива завдяки цій політиці .

Математика, 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

Мозг-Флак , 206 170 162 байт

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

Спробуйте в Інтернеті!

К, 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;};

Створює 2D масив і замінює елементи, у яких рядки та стовпці рівні 1.

CJam, 7 байт

{,_ff=}

Це блок коду, який спливає ціле число зі стека і виштовхує 2D масив натомість.

Спробуйте в Інтернеті!

Математика, 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..<>

Завдяки Тонові Євангелії за збереження 6 байт

Запуск з -Eперлрун:

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