課題は非常に簡単です。入力が整数のn場合、n x n単位行列を出力します。単位行列は、1sが左上から右下に及ぶものです。作成した単位行列を返すまたは出力するプログラムまたは関数を作成します。出力は、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

これは、整数を受け入れ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毎回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]]

かなり簡単ですが、より多くのことができると思います（多くの人が行っているように、この関数が既に組み込まれている言語がなくても）。

編集：ØrjanJohansenのおかげでいくつかのバイトを落としました

Pyth、7バイト

XRm0Q1Q

オンラインで試す：デモンストレーション

ゼロの行列を作成し、対角要素を1に置き換えます。

JavaScriptの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

オンラインでお試しください。

これは入力を単項として受け取ることに注意してください。これが受け入れられない場合、10進数の入力は次のように指定できます。

網膜、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の単位行列を返します。最適とはほど遠い。

Lua、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

まあ、luaが2期間の連結でこれに最適な言語であるかどうかはわかりません...しかし、ちょっと、それでショットがあります。改善すべき点があるかどうかを確認します。

編集：

偶然に何か奇妙なことを見つけましたが、うまくいきます。

Luaでは、変数に関数を割り当てることができることを誰もが知っています。これは、CodeGolfのより便利な機能の1つです。

これは次の代わりに：

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)

OOPアプローチを使用したstring.subの割り当て（64文字）

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

a .. nilアプローチを使用してstring.subを割り当てますか？（60文字）

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

誰かがこれがうまくいく理由を知っているなら、私は興味があります。

Python 3、48

sp3000のおかげで1バイト節約されました。

私は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

同じ長さの2つのバージョン。

anatolygからの提案により3バイトが節約されました：(n+1)->~n

iからn*n-1ゼロまで反復します。i％（n + 1）がゼロの場合は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

ここで試してみてください。

Pythonのnumpyのこの3.5 - 57の 49 30バイト

import numpy
numpy.identity

NumPy.identityは整数nを取り、n行n列の単位行列を返します。この答えはこの方針で許容されています。

Mathematica、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バイト

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

オンラインでお試しください！

K、7バイト

t=\:t:!

[0、n）を含む2つのベクトルの等価外積を取ります。

動作中：

  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配列をプッシュするコードブロックです。

オンラインでお試しください！

Mathematica、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バイトを節約してくれたTon Hospelに感謝

-Eperlrunで実行する：

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