도전은 매우 간단합니다. 정수 입력이 주어지면 항등 행렬을 n출력합니다 n x n. 항등 행렬은 1왼쪽 상단에서 오른쪽 하단에 걸쳐 있습니다. 생성 한 항등 표를 반환하거나 출력하는 프로그램이나 함수를 작성합니다. 출력은 2D 배열이거나 공백 / 탭과 줄 바꿈으로 구분 된 숫자 일 수 있습니다.

입력 및 출력 예

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.

이것은 code-golf 이므로 바이트 단위의 가장 짧은 코드가 이깁니다.

MATL, 2 바이트

Xy

내 옥타브 답변의 번역.

온라인으로 사용해보십시오.

내장되지 않은 4 바이트 버전 (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 바이트

identity(Ans

재미있는 사실 : 목록을 얻는 가장 짧은 방법 {N,N}은 dim(identity(N입니다.

8 바이트 단위로 내장되지 않은 가장 짧은 방법은 다음과 같습니다.

randM(Ans,Ans)^0

randM(-9에서 9 사이의 정수를 모두 포함하는 임의 행렬을 만듭니다 (이것은 이상하게 들립니다). 그런 다음이 행렬을 0 제곱으로 만듭니다.

줄리아, 9 3 바이트

eye

이것은 정수를 받아들이고 (즉, 2D 배열)을 n반환하는 내장 함수 일뿐 nxn Array{Float64,2}입니다. 처럼 부르십시오 eye(n).

이 정책에 따라이 양식을 제출할 수 있습니다.

APL, 5 바이트

∘.=⍨⍳

오른쪽의 정수를 받아들이고 항등 행렬을 반환하는 모나 딕 함수 트레인입니다.

여기 사용해보십시오

옥타브, 10 4 바이트

@eye

숫자를 취하고 n항등 행렬을 반환하는 익명 함수를 반환합니다.

R, 4 바이트

diag

행렬이 주어지면 행렬 diag의 대각선을 반환합니다. 정수를 제공 그러나 n, diag(n)단위 행렬을 반환합니다.

온라인으로 사용해보십시오

파이썬 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단위 행렬을주고 나중에마다 하나 개의 인덱스가 제공됩니다. 그러나 0으로 끝나는 행이 추가되어 [: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.

정수를 취하고 행렬을 반환하는 함수입니다.

하스켈, 43 37 바이트

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

꽤 간단하지만, (많은 사람들이 한 것처럼 이미이 기능이 내장 된 언어없이) 더 잘 할 수 있다고 생각합니다.

편집 : Ørjan Johansen 덕분에 약간의 바이트가 떨어졌습니다.

Pyth, 7 바이트

XRm0Q1Q

온라인으로 사용해보십시오 : 데모

0의 행렬을 만들고 대각선 요소를 1로 바꿉니다.

자바 스크립트 ES6, 68 62 52 바이트

@Neil의 깔끔한 트릭 덕분에 10 바이트 절약

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

@ Cᴏɴᴏʀ O'Bʀɪᴇɴ와 다른 접근법을 시도합니다. 아마도 개선 될 수있었습니다.

망막 , 25

추가 골프는 @randomra와 @Martin에게 감사드립니다.

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

온라인으로 사용해보십시오.

이 입력은 단항으로 입력됩니다. 이것이 허용되지 않으면 다음과 같이 십진수 입력이 주어질 수 있습니다.

망막, 34

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

온라인으로 사용해보십시오.

하스켈, 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

그러나 루아는 약간의 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)

OOP 접근 방식을 사용하여 string.sub 할당 (64 자)

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

nil 접근 방식을 사용하여 string.sub를 할당 하시겠습니까? (60 자)

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

이것이 왜 작동하는지 누군가가 알고 있다면 관심이 있습니다.

파이썬 3, 48

sp3000 덕분에 1 바이트가 절약되었습니다.

한 줄로 해결할 수있는 과제를 좋아합니다. 아주 간단합니다. 전달 된 int의 길이와 동일한 1과 0으로 라인을 만듭니다. 2d 배열로 출력합니다. : in 다음 부분을 감싸면 '\n'.join()꽤 인쇄됩니다.

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

C, 59 또는 59 56 또는 56

동일한 길이의 두 가지 버전.

anatolyg의 제안으로 인해 3 바이트가 절약되었습니다 (n+1).->~n

0 i에서 반복 n*n-1합니다. i % (n + 1)이 0이면 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 크기의 항등 행렬을 만듭니다.

K6 , 1 바이트

=

= 정확히 이거 야

온라인으로 사용해보십시오!

Pyth, 8 바이트

mmsqdkQQ

여기서 사용해보십시오 .

파이썬 NumPy와 3.5 - 57 49 30 바이트

import numpy
numpy.identity

NumPy.identity는 정수 n을 취하여 n x n 개의 행렬을 반환합니다. 이 답변은 이 정책을 통해 허용됩니다 .

매스 매 티카, 35 바이트

IdentityMatrix를 사용하지 않고

Table[Boole[i==j],{i,1,#},{j,1,#}]&

자바 스크립트, 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 바이트

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

온라인으로 사용해보십시오!

K, 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)

자바, 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}} *)

펄, 39 33 바이트

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

Ton Hospel 덕분에6 바이트를 절약 한 에게 합니다

-Eperlrun으로 실행 :

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